A272140 Numbers n such that Bernoulli number B_{n} has denominator 1590.

52, 104, 988, 1976, 3068, 3172, 5252, 5356, 5564, 6136, 6344, 7124, 7748, 8164, 8684, 10244, 10712, 12532, 13364, 13676, 13988, 14092, 16276, 16328, 17212, 17368, 17524, 18044, 18356, 19084, 19916, 20228, 20488, 20644, 22828, 23348, 23764

Offset

1,1

Comments

1590 = 2 * 3 * 5 * 53.

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

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

Links

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

Example

Bernoulli B_{52} is -801165718135489957347924991853/1590, hence 52 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, 1590);

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A044141 A044522 A335479 * A252343 A252336 A044239

Adjacent sequences: A272137 A272138 A272139 * A272141 A272142 A272143

Keyword

nonn

Author

Paolo P. Lava, Apr 21 2016

Extensions

a(12)-a(15) from Michel Marcus, Apr 22 2016

More terms from Altug Alkan, Apr 22 2016

Status

approved