OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 100: # to get all terms before the first term > N
Avail:= remove(isprime, [$4..N]):
for n from 1 while Avail <> [] do
for a in Avail while isprime(a+n) or isprime(a+2*n) do od:
if a = Avail[-1] and isprime(a+n) or isprime(a+2*n) then break fi;
A[n]:= a;
Avail:= subs(a=NULL, Avail);
od:
seq(A[i], i=1..n-1); # Robert Israel, Nov 19 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Dec 02 2003
EXTENSIONS
More terms from David Wasserman, Nov 04 2005
STATUS
approved