OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1500
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:
h:= proc(n) option remember; `if`(n<1, 0,
`if`(p(n), n, h(n-1)))
end:
b:= proc(n, i, t) option remember; `if`(n=0, 1, `if`(i<1 or
t<1, 0, b(n, h(i-1), t)+b(n-i, h(min(n-i, i)), t-1)))
end:
a:= n-> `if`(n=0, 1, b(2*n, h(2*n), n)-b(2*n, h(2*n), n-1)):
seq(a(n), n=0..70);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alois P. Heinz, Sep 19 2018
STATUS
approved