|
|
A164020
|
|
Denominators of Bernoulli numbers interleaved with even numbers.
|
|
7
|
|
|
1, 2, 6, 4, 30, 6, 42, 8, 30, 10, 66, 12, 2730, 14, 6, 16, 510, 18, 798, 20, 330, 22, 138, 24, 2730, 26, 6, 28, 870, 30, 14322, 32, 510, 34, 6, 36, 1919190, 38, 6, 40, 13530, 42, 1806, 44, 690, 46, 282, 48, 46410, 50, 66, 52, 1590, 54, 798, 56, 870, 58, 354, 60, 56786730
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(2*n+1) = 2*(n+1).
|
|
MATHEMATICA
|
a[n_]:=If[OddQ[n], n+1, BernoulliB[n] // Denominator]; Table[a[n], {n, 0, 60}](* Jean-François Alcover, Dec 29 2012 *)
With[{nn=60}, Riffle[Denominator[BernoulliB[Range[0, nn, 2]]], Range[2, nn, 2]]] (* Harvey P. Dale, Jul 18 2015 *)
|
|
PROG
|
(Magma) [IsEven(n) select Denominator(Bernoulli(n)) else n+1: n in [0..100]]; // Vincenzo Librandi, Sep 08 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|