A271634 Numbers n such that Bernoulli number B_{n} has denominator 510.

16, 32, 64, 128, 304, 496, 608, 752, 944, 992, 1504, 1648, 1744, 1984, 2512, 2672, 3008, 3152, 3296, 3376, 3488, 3568, 3632, 3664, 3856, 3968, 4112, 4208, 4528, 4976, 5024, 5072, 5344, 5584, 5648, 5776, 5872, 6016, 6064, 6128, 6224, 6304, 6592, 6752, 7024, 7136, 7264

Offset

1,1

Comments

510 = 2 * 3 * 5 * 17.

All terms are multiple of a(1) = 16.

For these numbers numerator(B_{n}) mod denominator(B_{n}) = 463.

Links

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

Example

Bernoulli B_{16} is -3617/510, hence 16 is in the sequence.

Maple

with(numtheory): P:=proc(q, h) local n;  for n from 2 by 2 to q do
if denom(bernoulli(n))=h then print(n); fi; od; end: P(10^6, 510);

Mathematica

Select[Range[0, 1000], Denominator[BernoulliB[#]] == 510 &] (* Robert Price, Apr 21 2016 *)

Prog

(PARI) isok(n) = denominator(bernfrac(n)) == 510; \\ Michel Marcus, Apr 22 2016

Crossrefs

Cf. A045979, A051222, A051225, A051226, A051227, A051228, A051229, A051230, A119456, A119480, A249134, A255684, A271635, A272138, A272139, A272140, A272183, A272184, A272185, A272186.

Sequence in context: A048170 A340624 A067053 * A031463 A045071 A007824

Adjacent sequences: A271631 A271632 A271633 * A271635 A271636 A271637

Keyword

nonn,easy

Author

Paolo P. Lava, Apr 21 2016

Extensions

More terms from Michel Marcus, Apr 22 2016

Status

approved