A233548 1, 1, followed by denominators of A000217(n)*A164555(n)/A027642(n).

1, 1, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 1, 1, 30, 1, 1, 1, 10, 1, 21, 1, 10, 1, 1, 1, 42, 1, 1, 1, 2, 1, 231, 1, 10, 1, 1, 1, 2730, 1, 1, 1, 110, 1, 21, 1, 2, 1, 1, 1, 1326, 1, 11, 1, 10, 1, 57, 1, 10, 1, 1, 1, 30030

Offset

-2,4

Comments

See A233316.

Links

Table of n, a(n) for n=-2..60.

Mathematica

b[-2] = b[-1] = 0; b[1] = 1/2; b[n_] := BernoulliB[n]; a[n_] := (n + 1)*(n + 2)/2*b[n] // Denominator; Table[a[n], {n, -2, 60}]

Crossrefs

Cf. A233316 (numerators).

Sequence in context: A111786 A072811 A296559 * A080027 A341970 A220465

Adjacent sequences: A233545 A233546 A233547 * A233549 A233550 A233551

Keyword

nonn,frac

Author

Jean-François Alcover and Paul Curtz, Dec 12 2013

Status

approved