A147849 a(n) is the smallest triangular number > n-th prime.
3, 6, 6, 10, 15, 15, 21, 21, 28, 36, 36, 45, 45, 45, 55, 55, 66, 66, 78, 78, 78, 91, 91, 91, 105, 105, 105, 120, 120, 120, 136, 136, 153, 153, 153, 153, 171, 171, 171, 190, 190, 190, 210, 210, 210, 210, 231, 231, 231, 231, 253, 253, 253, 253, 276, 276, 276, 276
Offset: 1
Keywords
Programs
-
Mathematica
a1 = Reap[Do[p = Prime[m]; Do[t = n (n + 1)/2; If[t > p, Sow[t]; Break[]], {n, 200}], {m, 100}]][[2, 1]]