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!)
A295599 Numbers k such that Bernoulli number B_{k} has denominator 140100870. 1

%I #12 Dec 02 2017 07:53:21

%S 72,12024,22824,25416,31608,39384,52776,61848,78984,90648,93672,93816,

%T 107496,117864,123912,124056,125784,143784,147816,150408,156888,

%U 161064,161208,163368,165384,166248,170712,178056,180216,188424,191304,193608,197928,199944,204696

%N Numbers k such that Bernoulli number B_{k} has denominator 140100870.

%C 140100870 = 2*3*5*7*13*19*37*73.

%C All terms are multiples of a(1) = 72.

%C For these numbers numerator(B_{k}) mod denominator(B_{k}) = 91560011.

%H Seiichi Manyama, <a href="/A295599/b295599.txt">Table of n, a(n) for n = 1..1000</a>

%e 140100870 = 2*3*5*7*13*19*37*73.

%e Bernoulli B_{72} is

%e -5827954961669944110438277244641067365282488301844260429/140100870, hence 72 is in the sequence.

%p with(numtheory): P:=proc(q, h) local n; for n from 2 by 2 to q do

%p if denom(bernoulli(n))=h then print(n); fi; od; end: P(10^6, 140100870);

%p # Alternative: # according to Robert Israel code in A282773

%p with(numtheory): filter:= n ->

%p select(isprime, map(`+`, divisors(n), 1)) = {2, 3, 5, 7, 13, 19, 37, 73}:

%p select(filter, [seq(i, i=1..10^5)]);

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

%K nonn,easy

%O 1,1

%A _Paolo P. Lava_, Nov 24 2017

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 March 28 20:05 EDT 2024. Contains 371254 sequences. (Running on oeis4.)