|
%I #16 Feb 07 2021 12:41:04
%S 1,5,15,35,70,126,210,330,495,710,981,1310,1695,2130,2605,3106,3615,
%T 4110,4575,4980,5311,5555,5705,5760,5725,5611,5435,5210,4975,4735,
%U 4511,4320,4170,4065,4005,3986,4005,4040,4100,4175,4241,4310,4380,4450,4520,4590,4665,4740,4810
%N Number of ways to write n as an ordered sum of 5 nonzero decimal palindromes.
%H Alois P. Heinz, <a href="/A341184/b341184.txt">Table of n, a(n) for n = 5..10000</a>
%t nmax = 53; CoefficientList[Series[Sum[Boole[PalindromeQ[k]] x^k, {k, 1, nmax}]^5, {x, 0, nmax}], x] // Drop[#, 5] &
%Y Cf. A002113, A136522, A319470, A341158, A341191, A341192, A341193, A341203, A341204, A341205, A341206, A341207.
%K nonn,base
%O 5,2
%A _Ilya Gutkovskiy_, Feb 06 2021
|
