A341203 Number of ways to write n as an ordered sum of 6 nonzero decimal palindromes.
1, 6, 21, 56, 126, 252, 462, 792, 1287, 1996, 2973, 4272, 5942, 8022, 10536, 13488, 16857, 20592, 24622, 28836, 33108, 37298, 41262, 44862, 47976, 50508, 52398, 53612, 54192, 54186, 53688, 52818, 51708, 50492, 49296, 48228, 47383, 46788, 46497, 46506, 46773, 47268, 47948
Offset: 6
Links
- Alois P. Heinz, Table of n, a(n) for n = 6..10000
Crossrefs
Programs
-
Mathematica
nmax = 48; CoefficientList[Series[Sum[Boole[PalindromeQ[k]] x^k, {k, 1, nmax}]^6, {x, 0, nmax}], x] // Drop[#, 6] &