|
%I #16 Jan 20 2017 10:42:55
%S 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,
%T 32,34,35,43,38,42,46,44,49,55,50,53,57,61,61,67,63,70,73,73,73,81,77,
%U 83,85,87,89,97,94,100,98,102,102,113,107,110,118,117,121,126,123,128,133
%N Number of digits in numerator of B(2n) the Bernoulli numbers.
%H Seiichi Manyama, <a href="/A068399/b068399.txt">Table of n, a(n) for n = 0..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a>
%t IntegerLength/@Numerator[BernoulliB[2Range[70]]] (* _Harvey P. Dale_, Jun 21 2013 *)
%o (PARI) a(n)=logint(abs(numerator(bernfrac(2*n))),10)+1 \\ _Charles R Greathouse IV_, Jan 20 2017
%Y Cf. A092904 (denominator).
%K nonn,base
%O 0,7
%A _Benoit Cloitre_, Mar 01 2002
%E a(0) from _Seiichi Manyama_, Jan 20 2017
|
