A079295 (D(p)-6)/(12p) where D(p) denotes the denominator of the 2p-th Bernoulli number and p runs through the primes.

1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0

Offset

1,1

Comments

If p is a Sophie Germain prime (A005384) then denominator(B(2p)) = 6*(2p+1).

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(A053176(n)) = 0; a(A005384(n)) = 1.

a(n) = A101264(A000040(n)). - Ridouane Oudra, Feb 23 2026

Mathematica

dbn[n_]:=Module[{d=Denominator[BernoulliB[2n]]}, (d-6)/(12n)]; dbn/@ Prime[ Range[100]] (* Harvey P. Dale, May 19 2012 *)

Prog

(PARI) a(n) = my(p=prime(n)); (denominator(bernfrac(2*p)) - 6)/(12*p); \\ Michel Marcus, Sep 02 2019

Crossrefs

Cf. A002445, A053176, A005384, A000040, A000720, A101264.

Sequence in context: A386457 A214507 A093709 * A088025 A192687 A189141

Adjacent sequences: A079292 A079293 A079294 * A079296 A079297 A079298

Keyword

nonn

Author

Benoit Cloitre, Feb 09 2003

Status

approved