OFFSET
1,1
MATHEMATICA
triQ[n_]:=IntegerQ[Sqrt[8n+1]];
NestList[(x=NextPrime[#]; While[!triQ[x-#], x=NextPrime[x]]; x)&, 2, 100]
PROG
(PARI) lista(nn) = {print1(p = 2, ", "); for (n=2, nn, q = nextprime(p+1); while (! ispolygonal(q-p, 3), q = nextprime(q+1)); print1(q, ", "); p = q; ); } \\ Michel Marcus, Nov 13 2016
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ivan N. Ianakiev, Nov 13 2016
STATUS
approved