OFFSET
1,1
PROG
(PARI) lista(nn) = {precp = 1; currp = 4; for (nextp=5, nn, if (is_A025475(nextp), if (currp - precp < nextp - currp, tt = currp - precp, tt = nextp - currp); if (!(tt % 2) && ispolygonal(tt/2, 3), print1(currp, ", ")); precp = currp; currp = nextp; ); ); } \\ Michel Marcus, Apr 11 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Mar 20 2014
STATUS
approved