A100650 Denominator of 1 - Sum_{i=1..n} Bernoulli(i).

1, 2, 3, 3, 30, 30, 35, 35, 210, 210, 1155, 1155, 10010, 10010, 15015, 15015, 510510, 510510, 1616615, 1616615, 1939938, 1939938, 22309287, 22309287, 74364290, 74364290, 111546435, 111546435, 6469693230, 6469693230, 33426748355, 33426748355, 200560490130, 200560490130

Offset

0,2

Links

Amiram Eldar, Table of n, a(n) for n = 0..2369

Example

1, 3/2, 4/3, 4/3, 41/30, 41/30, 47/35, 47/35, 289/210, 289/210, 1502/1155, 1502/1155, 15551/10010, 15551/10010, 5809/15015, 5809/15015, 3818123/510510, 3818123/510510, ... = A100649/A100650.

Maple

A100650 := proc(n) 1-add( bernoulli(i), i=1..n) ; denom(%) ; end proc: # R. J. Mathar, Jul 01 2011

Mathematica

Denominator[1-Accumulate[BernoulliB[Range[0, 40]]]] (* Harvey P. Dale, Feb 19 2015 *)

Prog

(PARI) a(n) = denominator(1 - sum(i=1, n, bernfrac(i))); \\ Michel Marcus, Feb 15 2021

Crossrefs

Cf. A002110

Sequence in context: A216724 A281786 A319354 * A096502 A101462 A345751

Adjacent sequences: A100647 A100648 A100649 * A100651 A100652 A100653

Keyword

nonn,frac

Author

N. J. A. Sloane, Dec 05 2004

Status

approved