A117104 Sum of two positive heptagonal numbers A000566.
2, 8, 14, 19, 25, 35, 36, 41, 52, 56, 62, 68, 73, 82, 88, 89, 99, 110, 113, 115, 119, 130, 136, 146, 149, 155, 162, 166, 167, 182, 190, 193, 196, 203, 207, 223, 224, 229, 236, 242, 244, 253, 260, 269, 270, 287, 290, 293, 296, 301, 304, 316, 320, 337, 341, 343, 347
Offset: 1
Programs
-
Mathematica
Lim=348;nl=Ceiling[Sqrt[(2/5)Lim]];Select[Union[Total/@Tuples[Table[n*(5n-3)/2,{n,nl}],{2}]],#
James C. McMahon, Sep 27 2024 *)
Extensions
Missing 343 added by Giovanni Resta, Jun 15 2016
Comments