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

1, 1, 453, 481832565077, 3336994692120829058949545155598207748189, 4183667308477313795108662587270037418426429056133620947343416969739965511482242658521291610836247844507748569589345

Offset: 1

Author

Benoit Cloitre, Oct 19 2002

Keywords

• nonn

Comments

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

Crossrefs

Cf. A000367.

Programs

Mathematica

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

PARI

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

Formula

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