A215762 a(n) = smallest prime > a(n-1) + 2(n-1), a(1)=2.

2, 5, 11, 19, 29, 41, 59, 79, 97, 127, 149, 173, 199, 227, 257, 293, 331, 367, 409, 449, 491, 541, 587, 641, 691, 743, 797, 853, 911, 971, 1033, 1097, 1163, 1231, 1301, 1373, 1447, 1523, 1601, 1693, 1777, 1861, 1949, 2039, 2129, 2221, 2333, 2437, 2539, 2647

Offset

1,1

Comments

First differences b(n=1,2,..)={3, 6, 8, 10, 12, 18, 20, 18, 30, 22, 24, 26, 28, 30, 36, 38, 36, 42, 40, 42, 50, 46, 54}; b(n)>2n, and b(n)-2n = {1, 2, 2, 2, 2, 6, 6, 2, 12, 2, 2, 2, 2, 2, 6, 6, 2, 6, 2, 2, 8, 2, 8}.

Links

Zak Seidov, Table of n, a(n) for n = 1..1000

Mathematica

a=2; s={a}; k=2; m=100; Do[AppendTo[s, a=NextPrime[a+k]]; k=k+2, {m-1}]; s (* Zak Seidov, Aug 23 2012 *)
RecurrenceTable[{a[1]==2, a[n]==NextPrime[a[n-1]+2(n-1)]}, a, {n, 50}] (* Harvey P. Dale, Oct 09 2013 *)

Crossrefs

Sequence in context: A190309 A161550 A245207 * A085626 A258031 A290164

Adjacent sequences: A215759 A215760 A215761 * A215763 A215764 A215765

Keyword

nonn

Author

Zak Seidov, Aug 23 2012

Status

approved