OFFSET
1,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local p, k;
p:= 1:
for k from 1 do
p:= nextprime(p);
if p > n+k then return true
elif n+k mod p = 0 then return false
fi
od
end proc:
select(filter, [seq(i, i=0..1000, 2)]); # Robert Israel, Jan 16 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Rémy Sigrist, Jan 14 2018
STATUS
approved