A334035 a(n) is the least integer that can be expressed as the difference of two hexagonal numbers in exactly n ways.
1, 45, 225, 585, 2415, 4725, 9945, 10395, 31185, 28665, 45045, 58905, 143325, 257985, 135135, 225225, 329175, 487305, 405405, 831285, 1091475, 675675, 1396395, 1576575, 2927925, 3132675, 2436525, 2027025, 2567565, 2297295, 6235515, 5360355, 4729725, 3828825, 10503675
Offset: 1
Keywords
Links
- Eric Weisstein's World of Mathematics, Hexagonal Number
- Index to sequences related to polygonal numbers
Programs
-
Mathematica
nmax = 10000; A333816 = Rest[CoefficientList[Series[Sum[x^(k*(2*k - 1))/(1 - x^(4*k)), {k, 1, 1 + Sqrt[nmax/2]}], {x, 0, nmax}], x]]; Flatten[Table[FirstPosition[A333816, k], {k, 1, Max[A333816]}]] (* Vaclav Kotesovec, Apr 19 2020 *)
Extensions
More terms from Jinyuan Wang, Apr 13 2020
Comments