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

Author

N. J. A. Sloane, Dec 05 2004

Keywords

• nonn
• frac
• changed

Examples

			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, ...
		

Links

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

Crossrefs

Cf. A002110, A100649 (numerators).

Programs

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 *)

PARI

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