A255684 - OEIS

%I #41 Sep 08 2022 08:46:11

%S 58,406,754,986,1682,1798,2146,2494,2726,3422,3886,4118,4234,5626,

%T 5858,5974,6206,7366,7946,8062,8642,8758,9106,9454,9686,11194,11426,

%U 11542,11774,12586,12934,13166,13282,13978,14906,15022,15254,15602,15718,16414,17458,18038,18154,18386,19198,19546

%N Bernoulli number B_{n} has denominator 354.

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

%C Numerator(B_{n}) mod Denominator(B_{n}) = 53.

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

%e B_{58} = 84483613348880041862046775994036021 / 354.

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

%p if denom(bernoulli(n))=354 then print(n); fi; od; end: P(10^5);

%t Select[Range@ 10000, Denominator@ BernoulliB@# == 354 &] (* _Michael De Vlieger_, Mar 31 2015 *)

%o (Magma) [n: n in [0..1000] | Denominator(Bernoulli(n)) eq 354]; // _Vincenzo Librandi_, Apr 06 2015

%o (PARI) isok(n) = denominator(bernfrac(n)) == 354; \\ _Michel Marcus_, Apr 22 2016

%Y Cf. A045979, A051222, A051225-A051230, A119456, A119480, A249134,

%Y A271634, A271635, A272138, A272139, A272140, A272183, A272184, A272185, A272186.

%K nonn,easy

%O 1,1

%A _Paolo P. Lava_, Mar 30 2015

%E More terms from _Michael De Vlieger_, Mar 31 2015