A249134 Numbers k such that Bernoulli number B_k has denominator 2730.

12, 24, 1308, 1884, 2004, 2364, 2532, 2724, 3804, 4008, 4044, 4188, 4236, 4668, 5052, 5064, 5268, 5388, 5484, 6252, 6492, 6564, 6756, 6852, 7044, 7188, 7356, 7404, 7608, 7764, 8124, 8412, 8472, 8796, 9084, 9228, 9852, 9876, 9924

Offset

1,1

Comments

2730 = 2 * 3 * 5 * 7 * 13.

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Example

BernoulliB(12) is -691/2730, hence 12 is in the sequence.

Mathematica

Reap[For[n = 0, n <= 10^4, n = n+12, If[Denominator[BernoulliB[n]] == 2730, Print[n]; Sow[n]]]][[2, 1]]
Select[Table[n, {n, 2, 10000}], Denominator@BernoulliB[#]==2730 &] (* Vincenzo Librandi, Apr 02 2015 *)

Prog

(PARI) is(n)=denominator(bernfrac(n))==2730 \\ Charles R Greathouse IV, Oct 22 2014
(PARI) is(n)=if(n%12 || n%16==0 || n%9==0, return(0)); forprime(p=5, 107, if(n%p==0, return(0))); fordiv(n, d, if(isprime(d+1) && d>13, return(0))); 1 \\ Charles R Greathouse IV, Oct 22 2014

Crossrefs

Cf. A000367, A002445, A006954, A027642, A027760, A027762, A051222, A051225-A051230, A245056, A271634, A271635, A272138, A272139, A272140, A272183, A272184, A272185, A272186.

Sequence in context: A154268 A058994 A198808 * A323195 A033165 A224676

Adjacent sequences: A249131 A249132 A249133 * A249135 A249136 A249137

Keyword

nonn

Author

Jean-François Alcover and Paul Curtz, Oct 22 2014

Status

approved