|
%I #8 Feb 07 2021 12:52:34
%S 1,6,21,56,126,252,462,792,1287,1996,2973,4272,5942,8022,10536,13488,
%T 16857,20592,24622,28836,33108,37298,41262,44862,47976,50508,52398,
%U 53612,54192,54186,53688,52818,51708,50492,49296,48228,47383,46788,46497,46506,46773,47268,47948
%N Number of ways to write n as an ordered sum of 6 nonzero decimal palindromes.
%H Alois P. Heinz, <a href="/A341203/b341203.txt">Table of n, a(n) for n = 6..10000</a>
%t nmax = 48; CoefficientList[Series[Sum[Boole[PalindromeQ[k]] x^k, {k, 1, nmax}]^6, {x, 0, nmax}], x] // Drop[#, 6] &
%Y Cf. A002113, A136522, A319471, A341159, A341184, A341191, A341192, A341193, A341204, A341205, A341206, A341207.
%K nonn,base
%O 6,2
%A _Ilya Gutkovskiy_, Feb 06 2021
|
