OFFSET
1,2
LINKS
EXAMPLE
2 is a term because the sum of the first 2 primes (2 + 3 = 5) is a pentagonal number.
MATHEMATICA
A364696list[kmax_]:=Module[{p=0}, Join[{0}, Table[If[IntegerQ[(Sqrt[24(p+=Prime[k])+1]+1)/6], k, Nothing], {k, kmax}]]]; A364696list[25000] (* Paolo Xausa, Oct 06 2023 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Paolo Xausa, Aug 03 2023
EXTENSIONS
a(5) from Michel Marcus, Aug 04 2023
a(6)-a(7) from Hugo Pfoertner, Aug 04 2023
STATUS
approved