OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
R:= 1; x:= 1: count:= 1:
for y from x+2 by 2 do
if isprime(2*y-x) then
R:= R, y; x:= y; count:= count+1;
if count = 100 then break fi;
fi
od:
R; # Robert Israel, Mar 22 2023
MATHEMATICA
soi[a_]:=Module[{k=a+2}, While[!PrimeQ[2k-a], k=k+2]; k]; NestList[soi, 1, 60] (* Harvey P. Dale, Sep 02 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 10 2009
EXTENSIONS
More terms from R. J. Mathar, Oct 24 2009
STATUS
approved