A341193 Number of ways to write n as an ordered sum of 4 nonzero decimal palindromes.
1, 4, 10, 20, 35, 56, 84, 120, 165, 216, 274, 336, 399, 460, 516, 564, 601, 624, 636, 628, 609, 580, 544, 504, 463, 424, 390, 360, 345, 332, 324, 324, 327, 332, 338, 344, 350, 352, 356, 364, 361, 364, 370, 376, 382, 388, 394, 400, 402, 412, 418, 412, 418, 424, 430, 436, 442
Offset: 4
Links
- Alois P. Heinz, Table of n, a(n) for n = 4..20000
Programs
-
Mathematica
nmax = 60; CoefficientList[Series[Sum[Boole[PalindromeQ[k]] x^k, {k, 1, nmax}]^4, {x, 0, nmax}], x] // Drop[#, 4] &