A068399 Number of digits in numerator of B(2n) the Bernoulli numbers.

1, 1, 1, 1, 1, 1, 3, 1, 4, 5, 6, 6, 9, 7, 11, 13, 13, 13, 20, 16, 21, 22, 23, 24, 28, 27, 30, 32, 34, 35, 43, 38, 42, 46, 44, 49, 55, 50, 53, 57, 61, 61, 67, 63, 70, 73, 73, 73, 81, 77, 83, 85, 87, 89, 97, 94, 100, 98, 102, 102, 113, 107, 110, 118, 117, 121, 126, 123, 128, 133

Offset

0,7

Links

Seiichi Manyama, Table of n, a(n) for n = 0..1000

Eric Weisstein's World of Mathematics, Bernoulli Number

Mathematica

IntegerLength/@Numerator[BernoulliB[2Range[70]]] (* Harvey P. Dale, Jun 21 2013 *)

Prog

(PARI) a(n)=logint(abs(numerator(bernfrac(2*n))), 10)+1 \\ Charles R Greathouse IV, Jan 20 2017

Crossrefs

Cf. A092904 (denominator).

Sequence in context: A302917 A069203 A046070 * A225407 A353292 A183904

Adjacent sequences: A068396 A068397 A068398 * A068400 A068401 A068402

Keyword

nonn,base

Author

Benoit Cloitre, Mar 01 2002

Extensions

a(0) from Seiichi Manyama, Jan 20 2017

Status

approved