A341193 - OEIS

%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