OFFSET
1,1
EXAMPLE
15 is a term because 15 = 1 + 2 + 3 + 4 + 5 = 3 + 5 + 7.
MATHEMATICA
Select[Accumulate[Prime[Range[2, 1000000]]], IntegerQ[Sqrt[8 # + 1]] &]
PROG
(PARI) lista(nn) = my(s=0); forprime(p=3, nn, s+=p; if(ispolygonal(s, 3), print1(s, ", "))) \\ Jinyuan Wang, Aug 10 2023
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ilya Gutkovskiy, Aug 08 2023
EXTENSIONS
a(10) from Jinyuan Wang, Aug 10 2023
a(11) from Martin Ehrenstein, Aug 23 2023
STATUS
approved