OFFSET
1,1
COMMENTS
7 is the only prime heptagonal number. Primes which are sums of two positive heptagonal numbers include: {2, 19, 41, 73, 89, 113, 149, 167, 193, 223, 229, 269, 293, 337, 347, 367, 383, ...}. Primes which are sums of three positive heptagonal numbers include: {3, 37, 43, 53, 59, 83, 89, 107, 131, 137, 149, 163, 167, 173, 191, 197, 211, 227, 241, 251, 257, 263, 271, ...}.
By definition this does not contain any repeated terms. - N. J. A. Sloane, Aug 15 2020
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
With[{nn=10}, Select[Union[Total/@Tuples[PolygonalNumber[7, Range[ nn]], 3]], #<=PolygonalNumber[7, nn]-2&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 16 2020 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Apr 18 2006
EXTENSIONS
Missing 106 and 131 added by Giovanni Resta, Jun 15 2016
Corrected (deleting duplicates) and extended by Harvey P. Dale, Aug 16 2020
STATUS
approved