|
%I #8 Apr 22 2020 18:33:57
%S 6,13,17,23,27,34,36,40,47,52,56,57,63,71,73,75,82,86,92,93,97,104,
%T 105,114,118,121,122,127,129,139,143,146,150,152,157,162,167,168,177,
%U 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
%N Sums of two distinct nonzero pentagonal numbers.
%C A subset of A332987.
%t Total/@Subsets[PolygonalNumber[5,Range[20]],{2}]//Union (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 22 2020 *)
%Y Cf. A000326 (pentagonal numbers).
%K nonn,easy
%O 1,1
%A _Olivier Gérard_, Mar 05 2020
|
