A076547 (2^n-1-N(B(2^(n+1))))/2^n where N(B(k)) denotes the numerator of the k-th Bernoulli number.

1, 1, 453, 481832565077, 3336994692120829058949545155598207748189, 4183667308477313795108662587270037418426429056133620947343416969739965511482242658521291610836247844507748569589345

Offset

1,3

Comments

Appears to always be an integer. Next term is too large to include.

Links

Table of n, a(n) for n=1..6.

Formula

a(n) = (2^n-1-A000367(2^n))/2^n

Mathematica

Table[(2^n-1-Numerator[BernoulliB[2^(n+1)]])/2^n, {n, 6}] (* Harvey P. Dale, Nov 16 2024 *)

Prog

(PARI) a(n)=(2^n-1-numerator(bernfrac((2^(n+1)))))/2^n

Crossrefs

Cf. A000367.

Sequence in context: A233215 A081739 A245946 * A365619 A259058 A213532

Adjacent sequences: A076544 A076545 A076546 * A076548 A076549 A076550

Keyword

nonn

Author

Benoit Cloitre, Oct 19 2002

Status

approved