|
|
A140814
|
|
a(0)=3, a(n)=A002445(n) for n >= 1.
|
|
2
|
|
|
3, 6, 30, 42, 30, 66, 2730, 6, 510, 798, 330, 138, 2730, 6, 870, 14322, 510, 6, 1919190, 6, 13530, 1806, 690, 282, 46410, 66, 1590, 798, 870, 354, 56786730, 6, 510, 64722, 30, 4686, 140100870, 6, 30, 3318, 230010, 498, 3404310, 6, 61410, 272118, 1410, 6
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Join[{3}, Table[Denominator[BernoulliB[2 n]], {n, 60}]] (* Vincenzo Librandi, Nov 04 2018 *)
|
|
PROG
|
(Magma) [3] cat [Denominator(Bernoulli(2*n)): n in [1..60]]; // Vincenzo Librandi, Nov 04 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,less
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|