The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A249134 Numbers k such that Bernoulli number B_k has denominator 2730. 29
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 (list; graph; refs; listen; history; text; internal format)
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
Sequence in context: A154268 A058994 A198808 * A323195 A033165 A224676
KEYWORD
nonn
AUTHOR
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 29 10:54 EDT 2024. Contains 372938 sequences. (Running on oeis4.)