|
%I #25 Aug 08 2021 19:07:57
%S 46,322,782,874,1058,1702,2162,2254,2714,2806,3266,3634,4646,4738,
%T 4922,5014,6118,6302,6394,6854,7222,7406,7682,8326,8878,9062,9154,
%U 9706,10442,10534,11822,11914,12098,12374,12466,13018,13294,14122,14306,14398,14582
%N Numbers n such that Bernoulli number B_{n} has denominator 282.
%C 282 = 2 * 3 * 47.
%C All terms are multiples of a(1) = 46.
%C For these numbers numerator(B_{n}) mod denominator(B_{n}) = 41.
%H Seiichi Manyama, <a href="/A272184/b272184.txt">Table of n, a(n) for n = 1..1000</a>
%e Bernoulli B_{46} is 596451111593912163277961/282, hence 46 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,282);
%t Select[46 Range@ 320, Denominator@ BernoulliB@ # == 282 &] (* _Michael De Vlieger_, Apr 29 2016 *)
%o (PARI) isok(n) = denominator(bernfrac(n)) == 282; \\ _Michel Marcus_, Apr 22 2016
%Y Cf. A045979, A051222, A051225, A051226, A051227, A051228, A051229, A051230, A119456, A119480, A249134, A255684, A271634, A271635, A272138, A272139, A272140, A272183, A272185, A272186.
%K nonn
%O 1,1
%A _Paolo P. Lava_, Apr 22 2016
%E a(13)-a(28) from _Michel Marcus_, Apr 22 2016
%E a(29)-a(41) from _Altug Alkan_, Apr 22 2016
|
