| |  
 |  | 
 |  
 |  
 |  
 |  
 |  
 |  |  
 |  
 
 |  
 |  
 |  
 |  
 |  
 |  |  
 |  
 
 |  
 |  
 |  
 |  
 |  
 |  |  
 |  
 
 |  
 |  
 |  
 |  |   
 |  
 |  
 |  
 |  
 |  
 |  
 |  |  
 |  
 |  
 |  
 |  
 |  
 |  
 | | http://functions.wolfram.com/04.06.03.0012.01 | 
 |  
 |  
 |  
 |  
 |  
 |  |   
 |  
 |  |  |   
 |  
 |  
 |  
 |  
 |  
 |  
 |  |  
 |  
 |  
 |  
 |  
 |  
 |  
 | | Mod[Abs[BernoulliB[2 n]], 1] == KroneckerDelta[Mod[(n + 1)/2, 1], 0] + 
  (-1)^n Mod[1/2 + Sum[CharacteristicFunction[(2 n)/(k - 1), Integers] 
       CharacteristicFunction[k, Primes] (1/k), {k, 3, 2 n + 1}], 1] | 
 |  
 |  
 |  
 |  
 |  
 |  |   
 |  
 |  
 |  
 |  
 |  
 |  
 |  |  
 |  
 |  
 |  
 |  
 |  
 |  
 | | Cell[BoxData[RowBox[List[RowBox[List["Mod", "[", RowBox[List[RowBox[List["Abs", "[", RowBox[List["BernoulliB", "[", RowBox[List["2", "n"]], "]"]], "]"]], ",", "1"]], "]"]], "\[Equal]", RowBox[List[RowBox[List["KroneckerDelta", "[", RowBox[List[RowBox[List["Mod", "[", RowBox[List[FractionBox[RowBox[List["n", "+", "1"]], "2"], ",", "1"]], "]"]], ",", "0"]], "]"]], "+", RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["-", "1"]], ")"]], "n"], RowBox[List["Mod", "[", RowBox[List[RowBox[List[FractionBox["1", "2"], "+", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["k", "=", "3"]], RowBox[List[RowBox[List["2", "n"]], "+", "1"]]], RowBox[List[RowBox[List["CharacteristicFunction", "[", RowBox[List[FractionBox[RowBox[List["2", "n"]], RowBox[List["k", "-", "1"]]], ",", "Integers"]], "]"]], RowBox[List["CharacteristicFunction", "[", RowBox[List["k", ",", "Primes"]], "]"]], FractionBox["1", "k"]]]]]]], ",", "1"]], "]"]]]]]]]]]] | 
 |  
 |  
 |  
 |  
 |  
 |  |   
 |  
 |  
 |  
 |  
 |  
 |  
 |  |  
 |  
 |  
 |  
 |  
 |  
 |  
 |  |  
 |  
 |  
 | | 
   <math xmlns='http://www.w3.org/1998/Math/MathML' mathematica:form='TraditionalForm' xmlns:mathematica='http://www.wolfram.com/XML/'>  <semantics>  <mrow>  <semantics>  <mrow>  <mrow>  <mo> ❘ </mo>  <msub>  <mi> B </mi>  <mrow>  <mn> 2 </mn>  <mo> ⁢ </mo>  <mi> n </mi>  </mrow>  </msub>  <mo> ❘ </mo>  </mrow>  <mo> ⁢ </mo>  <mi> mod </mi>  <mo> ⁢ </mo>  <mn> 1 </mn>  </mrow>  <annotation-xml encoding='MathML-Content'>  <apply>  <rem />  <apply>  <abs />  <apply>  <ci> BernoulliB </ci>  <apply>  <times />  <cn type='integer'> 2 </cn>  <ci> $CellContext`n </ci>  </apply>  </apply>  </apply>  <cn type='integer'> 1 </cn>  </apply>  </annotation-xml>  </semantics>  <mo> ⩵ </mo>  <mrow>  <msub>  <semantics>  <mi> δ </mi>  <annotation-xml encoding='MathML-Content'>  <ci> KroneckerDelta </ci>  </annotation-xml>  </semantics>  <mrow>  <semantics>  <mrow>  <mfrac>  <mrow>  <mi> n </mi>  <mo> + </mo>  <mn> 1 </mn>  </mrow>  <mn> 2 </mn>  </mfrac>  <mo> ⁢ </mo>  <mi> mod </mi>  <mo> ⁢ </mo>  <mn> 1 </mn>  </mrow>  <annotation-xml encoding='MathML-Content'>  <apply>  <rem />  <apply>  <times />  <apply>  <plus />  <ci> $CellContext`n </ci>  <cn type='integer'> 1 </cn>  </apply>  <apply>  <power />  <cn type='integer'> 2 </cn>  <cn type='integer'> -1 </cn>  </apply>  </apply>  <cn type='integer'> 1 </cn>  </apply>  </annotation-xml>  </semantics>  <mo> , </mo>  <mn> 0 </mn>  </mrow>  </msub>  <mo> + </mo>  <mrow>  <msup>  <mrow>  <mo> ( </mo>  <mrow>  <mo> - </mo>  <mn> 1 </mn>  </mrow>  <mo> ) </mo>  </mrow>  <mi> n </mi>  </msup>  <mo> ⁢ </mo>  <mrow>  <mo> ( </mo>  <semantics>  <mrow>  <mrow>  <mo> ( </mo>  <mrow>  <mrow>  <munderover>  <mo> ∑ </mo>  <mrow>  <mi> k </mi>  <mo> = </mo>  <mn> 3 </mn>  </mrow>  <mrow>  <mrow>  <mn> 2 </mn>  <mo> ⁢ </mo>  <mi> n </mi>  </mrow>  <mo> + </mo>  <mn> 1 </mn>  </mrow>  </munderover>  <mrow>  <mfrac>  <mn> 1 </mn>  <mi> k </mi>  </mfrac>  <mo> ⁢ </mo>  <mrow>  <msub>  <mi> χ </mi>  <mi> ℤ </mi>  </msub>  <mo> ( </mo>  <mfrac>  <mrow>  <mn> 2 </mn>  <mo> ⁢ </mo>  <mi> n </mi>  </mrow>  <mrow>  <mi> k </mi>  <mo> - </mo>  <mn> 1 </mn>  </mrow>  </mfrac>  <mo> ) </mo>  </mrow>  <mo> ⁢ </mo>  <mrow>  <msub>  <mi> χ </mi>  <mi> ℙ </mi>  </msub>  <mo> ( </mo>  <mi> k </mi>  <mo> ) </mo>  </mrow>  </mrow>  </mrow>  <mo> + </mo>  <mfrac>  <mn> 1 </mn>  <mn> 2 </mn>  </mfrac>  </mrow>  <mo> ) </mo>  </mrow>  <mo> ⁢ </mo>  <mi> mod </mi>  <mo> ⁢ </mo>  <mn> 1 </mn>  </mrow>  <annotation-xml encoding='MathML-Content'>  <apply>  <rem />  <apply>  <plus />  <cn type='rational'> 1 <sep /> 2 </cn>  <apply>  <sum />  <bvar>  <ci> $CellContext`k </ci>  </bvar>  <lowlimit>  <cn type='integer'> 3 </cn>  </lowlimit>  <uplimit>  <apply>  <plus />  <apply>  <times />  <cn type='integer'> 2 </cn>  <ci> $CellContext`n </ci>  </apply>  <cn type='integer'> 1 </cn>  </apply>  </uplimit>  <apply>  <times />  <apply>  <ci> CharacteristicFunction </ci>  <apply>  <times />  <cn type='integer'> 2 </cn>  <ci> $CellContext`n </ci>  <apply>  <power />  <apply>  <plus />  <ci> $CellContext`k </ci>  <cn type='integer'> -1 </cn>  </apply>  <cn type='integer'> -1 </cn>  </apply>  </apply>  <integers />  </apply>  <apply>  <ci> CharacteristicFunction </ci>  <ci> $CellContext`k </ci>  <primes />  </apply>  <apply>  <power />  <ci> $CellContext`k </ci>  <cn type='integer'> -1 </cn>  </apply>  </apply>  </apply>  </apply>  <cn type='integer'> 1 </cn>  </apply>  </annotation-xml>  </semantics>  <mo> ) </mo>  </mrow>  </mrow>  </mrow>  </mrow>  <annotation-xml encoding='MathML-Content'>  <apply>  <eq />  <apply>  <rem />  <apply>  <abs />  <apply>  <ci> BernoulliB </ci>  <apply>  <times />  <cn type='integer'> 2 </cn>  <ci> $CellContext`n </ci>  </apply>  </apply>  </apply>  <cn type='integer'> 1 </cn>  </apply>  <apply>  <plus />  <apply>  <ci> KroneckerDelta </ci>  <apply>  <rem />  <apply>  <times />  <apply>  <plus />  <ci> $CellContext`n </ci>  <cn type='integer'> 1 </cn>  </apply>  <apply>  <power />  <cn type='integer'> 2 </cn>  <cn type='integer'> -1 </cn>  </apply>  </apply>  <cn type='integer'> 1 </cn>  </apply>  <cn type='integer'> 0 </cn>  </apply>  <apply>  <times />  <apply>  <power />  <cn type='integer'> -1 </cn>  <ci> n </ci>  </apply>  <apply>  <rem />  <apply>  <plus />  <cn type='rational'> 1 <sep /> 2 </cn>  <apply>  <sum />  <bvar>  <ci> $CellContext`k </ci>  </bvar>  <lowlimit>  <cn type='integer'> 3 </cn>  </lowlimit>  <uplimit>  <apply>  <plus />  <apply>  <times />  <cn type='integer'> 2 </cn>  <ci> $CellContext`n </ci>  </apply>  <cn type='integer'> 1 </cn>  </apply>  </uplimit>  <apply>  <times />  <apply>  <ci> CharacteristicFunction </ci>  <apply>  <times />  <cn type='integer'> 2 </cn>  <ci> $CellContext`n </ci>  <apply>  <power />  <apply>  <plus />  <ci> $CellContext`k </ci>  <cn type='integer'> -1 </cn>  </apply>  <cn type='integer'> -1 </cn>  </apply>  </apply>  <integers />  </apply>  <apply>  <ci> CharacteristicFunction </ci>  <ci> $CellContext`k </ci>  <primes />  </apply>  <apply>  <times />  <cn type='integer'> 1 </cn>  <apply>  <power />  <ci> $CellContext`k </ci>  <cn type='integer'> -1 </cn>  </apply>  </apply>  </apply>  </apply>  </apply>  <cn type='integer'> 1 </cn>  </apply>  </apply>  </apply>  </apply>  </annotation-xml>  </semantics>  </math> 
   | 
 |  
 |  
 |  
 |  
 |  
 |  |  
 |  |  
 |  
 |  
 |  |  
 |  |  
 |  |  
 |  
 |  
 |  |  
 | | Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List["Mod", "[", RowBox[List[RowBox[List["Abs", "[", RowBox[List["BernoulliB", "[", RowBox[List["2", " ", "n_"]], "]"]], "]"]], ",", "1"]], "]"]], "]"]], "\[RuleDelayed]", RowBox[List[RowBox[List["KroneckerDelta", "[", RowBox[List[RowBox[List["Mod", "[", RowBox[List[FractionBox[RowBox[List["n", "+", "1"]], "2"], ",", "1"]], "]"]], ",", "0"]], "]"]], "+", RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["-", "1"]], ")"]], "n"], " ", RowBox[List["Mod", "[", RowBox[List[RowBox[List[FractionBox["1", "2"], "+", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["k", "=", "3"]], RowBox[List[RowBox[List["2", " ", "n"]], "+", "1"]]], FractionBox[RowBox[List[RowBox[List["CharacteristicFunction", "[", RowBox[List[FractionBox[RowBox[List["2", " ", "n"]], RowBox[List["k", "-", "1"]]], ",", "Integers"]], "]"]], " ", RowBox[List["CharacteristicFunction", "[", RowBox[List["k", ",", "Primes"]], "]"]]]], "k"]]]]], ",", "1"]], "]"]]]]]]]]]] | 
 |  
 |   
 |  
 |  
 | |   
 |  
 |  
 |  
 |  
 |  
 |  
 | | Date Added to functions.wolfram.com (modification date) | 
 |  
 |  
 |  
 |  
 |  
 |  
 |  
 |  |  
 |   
 |  
 |  
 |  |  | 
 
 
 | 
 |