OFFSET
1,2
COMMENTS
I conjecture that any initial term a(1) eventually merges with this sequence.
MATHEMATICA
a=1; s={a}; Do[x=a+1+Mod[a, 2]; While[!PrimeQ[2*a+x], x=x+2]; s={s, x}; a=x, {100}]; s=Flatten[s]
PROG
(PARI) v=[1]; n=2; while(#v<100, if(isprime(2*v[#v]+n), v=concat(v, n)); n++); v \\ Derek Orr, Apr 14 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Apr 11 2015
STATUS
approved