OFFSET
1,2
COMMENTS
For prime entries in the sequence see A136098. - Lekraj Beedassy, Mar 15 2008, May 21 2008
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
f:= proc(n, d) local L, m, k;
L:= convert(9^d+n, base, 9);
add((1+L[d+1-i])*(10^(i-1)+10^(2*d+1-i)), i=1..d)
end proc:
seq(seq(f(n, d), n=0..9^d-1), d=0..2); # Robert Israel, Feb 18 2018
MATHEMATICA
Join[{0}, Flatten[Table[Select[Range[10^(2n), 10^(2n+1)-1], PalindromeQ[ #] && DigitCount[ #, 10, 0]==1&&IntegerDigits[#][[(IntegerLength[#]+1)/2]]==0&], {n, 2}]]] (* Harvey P. Dale, Dec 03 2022 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Omar E. Pol, Mar 09 2008
STATUS
approved