login
A332988
Sums of two distinct nonzero pentagonal numbers.
5
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,1
COMMENTS
A subset of A332987.
MATHEMATICA
Total/@Subsets[PolygonalNumber[5, Range[20]], {2}]//Union (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 22 2020 *)
CROSSREFS
Cf. A000326 (pentagonal numbers).
Sequence in context: A090068 A070899 A265756 * A333011 A197562 A322431
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Mar 05 2020
STATUS
approved