OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..768
MAPLE
S:= {0}: # adapted from A280708
x:= 1:
while x < 10^4 do
if ormap(s -> isprime(s+x), S)
then x:= x+1
else S:= S union map(`+`, S, x)
fi
od:
sort(convert(S, list));
MATHEMATICA
S = {0}; x = 1;
While[x < 2000, If[AnyTrue[S, PrimeQ[#+x]&], x++, S = S ~Union~ (S+x)]];
S (* Jean-François Alcover, Apr 29 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel and Peter Luschny, Jan 20 2017
STATUS
approved