A332988 Sums of two distinct nonzero pentagonal numbers.
6, 13, 17, 23, 27, 34, 36, 40, 47, 52, 56, 57, 63, 71, 73, 75, 82, 86, 92, 93, 97, 104, 105, 114, 118, 121, 122, 127, 129, 139, 143, 146, 150, 152, 157, 162, 167, 168, 177, 180, 181, 187, 188, 196, 198, 209, 211, 215, 222, 227, 232, 237, 245, 246, 248, 252, 259, 261, 262, 268, 269, 280, 282, 288, 292, 293, 298, 299, 302, 309, 317, 321, 322, 327, 331, 335, 338, 339, 342, 352, 355, 357, 364, 365, 377, 379, 381, 386, 388, 392, 398
Offset: 1
Crossrefs
Cf. A000326 (pentagonal numbers).
Programs
-
Mathematica
Total/@Subsets[PolygonalNumber[5,Range[20]],{2}]//Union (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 22 2020 *)
Comments