A097050 Smallest prime > n(n+1)/2.

2, 2, 5, 7, 11, 17, 23, 29, 37, 47, 59, 67, 79, 97, 107, 127, 137, 157, 173, 191, 211, 233, 257, 277, 307, 331, 353, 379, 409, 439, 467, 499, 541, 563, 599, 631, 673, 709, 743, 787, 821, 863, 907, 947, 991, 1039, 1087, 1129, 1181, 1229, 1277, 1327, 1381, 1433, 1487, 1543

Offset: 0

Author

N. J. A. Sloane, Sep 15 2004, Nov 21 2008

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A000217, A151800.

Cf. A060264. See A065383 for another version.

Programs

Mathematica

NextPrime@Table[n(n+1)/2,{n,0,60}]  (* Vladimir Joseph Stephan Orlovsky, Apr 11 2011 *)
NextPrime[Accumulate[Range[0,60]]] (* Harvey P. Dale, Aug 23 2023 *)

PARI

a(n) = nextprime(n*(n+1)/2+1); \\ Michel Marcus, Nov 13 2015

Formula

a(n) = A151800(A000217(n)). - Michel Marcus, Nov 13 2015