OFFSET
1,1
COMMENTS
All terms are multiples of a(1) = 58.
Numerator(B_{n}) mod Denominator(B_{n}) = 53.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..1000
EXAMPLE
B_{58} = 84483613348880041862046775994036021 / 354.
MAPLE
with(numtheory): P:=proc(q) local n; for n from 2 by 2 to q do
if denom(bernoulli(n))=354 then print(n); fi; od; end: P(10^5);
MATHEMATICA
Select[Range@ 10000, Denominator@ BernoulliB@# == 354 &] (* Michael De Vlieger, Mar 31 2015 *)
PROG
(Magma) [n: n in [0..1000] | Denominator(Bernoulli(n)) eq 354]; // Vincenzo Librandi, Apr 06 2015
(PARI) isok(n) = denominator(bernfrac(n)) == 354; \\ Michel Marcus, Apr 22 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo P. Lava, Mar 30 2015
EXTENSIONS
More terms from Michael De Vlieger, Mar 31 2015
STATUS
approved