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,1

Links

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

Formula

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

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 *)

Prog

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

Crossrefs

Cf. A000217, A151800.

Cf. A060264. See A065383 for another version.

Sequence in context: A326529 A326634 A241446 * A265795 A095295 A095333

Adjacent sequences: A097047 A097048 A097049 * A097051 A097052 A097053

Keyword

nonn

Author

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

Status

approved