OFFSET
9,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 9..10000
MAPLE
p:= proc(n) option remember; local i, s; s:= ""||n;
for i to iquo(length(s), 2) do if
s[i]<>s[-i] then return false fi od; true
end:
b:= proc(n, t) option remember; `if`(n=0, `if`(t=0, 1, 0),
`if`(t<1, 0, add(`if`(p(j), b(n-j, t-1), 0), j=1..n)))
end:
a:= n-> b(n, 9):
seq(a(n), n=9..43); # Alois P. Heinz, Feb 07 2021
MATHEMATICA
nmax = 43; CoefficientList[Series[Sum[Boole[PalindromeQ[k]] x^k, {k, 1, nmax}]^9, {x, 0, nmax}], x] // Drop[#, 9] &
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, Feb 06 2021
STATUS
approved