A140814 a(0)=3, a(n)=A002445(n) for n >= 1.

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

Offset: 0

Author

Paul Curtz, Jul 16 2008

Keywords

• nonn
• less

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A027762, A140816.

Programs

Magma

[3] cat [Denominator(Bernoulli(2*n)): n in [1..60]]; // Vincenzo Librandi, Nov 04 2018

Mathematica

Join[{3}, Table[Denominator[BernoulliB[2 n]], {n, 60}]] (* Vincenzo Librandi, Nov 04 2018 *)

Formula

a(n) = A106458(2*n) + A106458(2*n+1).

a(n) = A027762(n) for n >= 1. - Georg Fischer, Nov 03 2018

Extensions

Edited and extended by R. J. Mathar, Jul 29 2008