A093503 a(0) = 2, a(n) = least prime >= a(n-1) + n.

2, 3, 5, 11, 17, 23, 29, 37, 47, 59, 71, 83, 97, 113, 127, 149, 167, 191, 211, 233, 257, 281, 307, 331, 359, 389, 419, 449, 479, 509, 541, 577, 613, 647, 683, 719, 757, 797, 839, 881, 929, 971, 1013, 1061, 1109, 1163, 1213, 1277, 1327, 1381, 1433, 1487, 1543

Offset

0,1

Comments

A variant with offset 1 is 2, 5, 11, 17, ... which agrees with this sequence for n > 1.

Links

Paolo Xausa, Table of n, a(n) for n = 0..10000

Example

a(6) is the least prime >= a(5) + 6 = 23 + 6 = 29, hence a(6) = 29.

Mathematica

A093503list[nmax_]:=Module[{n=0}, NestList[NextPrime[#+n++]&, 2, nmax]]; A093503list[100] (* Paolo Xausa, Aug 29 2023 *)

Prog

(PARI) p=2; for(n=1, 53, print1(p, ", "); p=nextprime(p+n))

Crossrefs

Cf. A093504.

Sequence in context: A263090 A098058 A040054 * A040036 A040078 A045309

Adjacent sequences: A093500 A093501 A093502 * A093504 A093505 A093506

Keyword

easy,nonn

Author

Amarnath Murthy, Apr 17 2004

Extensions

Edited by Klaus Brockhaus, Apr 27 2004

Status

approved