OFFSET
1,1
COMMENTS
330 = 2 * 3 * 5 * 11.
All terms are multiple of a(1) = 20.
For these numbers numerator(B_{n}) mod denominator(B_{n}) = 289.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..1000
EXAMPLE
Bernoulli B_{20} is -174611/330, hence 20 is in the sequence.
MAPLE
with(numtheory): P:=proc(q, h) local n; for n from 2 by 2 to q do
if denom(bernoulli(n))=h then print(n); fi; od; end: P(10^6, 330);
MATHEMATICA
Select[20 Range@ 850, Denominator@ BernoulliB@ # == 330 &] (* Michael De Vlieger, Apr 29 2016 *)
PROG
(PARI) isok(n) = denominator(bernfrac(n)) == 330; \\ Michel Marcus, Apr 22 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Apr 22 2016
EXTENSIONS
a(15)-a(29) from Michel Marcus, Apr 22 2016
a(30)-a(45) from Altug Alkan, Apr 22 2016
STATUS
approved