OFFSET
1,1
COMMENTS
230010 = 2*3*5*11*17*41.
All terms are multiples of a(1) = 80.
For these numbers numerator(B_{k}) mod denominator(B_{k}) = 182293.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..1000
EXAMPLE
Bernoulli B_{80} is
-4603784299479457646935574969019046849794257872751288919656867/230010, hence 80 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, 230010);
# Alternative: # according to Robert Israel code in A282773
with(numtheory): filter:= n ->
select(isprime, map(`+`, divisors(n), 1)) = {2, 3, 5, 11, 17, 41}:
select(filter, [seq(i, i=1..10^5)]);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo P. Lava, Nov 24 2017
STATUS
approved