OFFSET
1,2
MATHEMATICA
a[1]=1; a[n_]:=a[n]=Prime[(a[n-1]+3)/2]; Table[a[n], {n, 20}]
NestList[Prime[(#+3)/2]&, 1, 21] (* Harvey P. Dale, Apr 01 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 16 2006
EXTENSIONS
More terms from Harvey P. Dale, Apr 01 2019
STATUS
approved