|
%I #6 Feb 07 2021 13:08:02
%S 1,4,10,20,35,56,84,120,165,216,274,336,399,460,516,564,601,624,636,
%T 628,609,580,544,504,463,424,390,360,345,332,324,324,327,332,338,344,
%U 350,352,356,364,361,364,370,376,382,388,394,400,402,412,418,412,418,424,430,436,442
%N Number of ways to write n as an ordered sum of 4 nonzero decimal palindromes.
%H Alois P. Heinz, <a href="/A341193/b341193.txt">Table of n, a(n) for n = 4..20000</a>
%t nmax = 60; CoefficientList[Series[Sum[Boole[PalindromeQ[k]] x^k, {k, 1, nmax}]^4, {x, 0, nmax}], x] // Drop[#, 4] &
%Y Cf. A002113, A136522, A319469, A341157, A341191, A341192.
%K nonn,base
%O 4,2
%A _Ilya Gutkovskiy_, Feb 06 2021
|
