OFFSET
1,1
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]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 15 2008
STATUS
approved