login
A116457
a(1) = 1; a(n) = prime((a(n-1)+3)/2).
0
1, 3, 5, 7, 11, 17, 29, 53, 107, 257, 733, 2503, 10211, 49739, 285377, 1909561, 14736529, 129812899, 1293238351, 14448382721, 179668662139, 2470072307533, 37316454626819
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
Sequence in context: A068811 A145987 A088083 * A037155 A282632 A212912
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 16 2006
EXTENSIONS
More terms from Harvey P. Dale, Apr 01 2019
STATUS
approved