The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A100650 Denominator of 1 - Sum_{i=1..n} Bernoulli(i). 7
 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 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 12 15:58 EDT 2024. Contains 375853 sequences. (Running on oeis4.)