OFFSET
1,2
EXAMPLE
a(6)=110 since 110=101+9=99+11=88+22=77+33=66+44=55+55 and no
number less than 110 has 6 such decompositions.
MATHEMATICA
palQ[n_] := n == FromDigits@Reverse@IntegerDigits@n; pt = Select[Range[0, 50005], palQ]; t = Array[0&, 50000]; Do[v = pt[[i]]+pt[[j]]; If[v<50000, t[[v + 1]]++ ], {i, 600}, {j, i}]; Table[Position[t, k][[1, 1]]-1, {k, 55}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Jan 20 2006
STATUS
approved