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,more
AUTHOR
Zak Seidov, Feb 16 2006
EXTENSIONS
More terms from Harvey P. Dale, Apr 01 2019
a(24)-a(27) from Amiram Eldar, Jul 15 2025
STATUS
approved
