OFFSET
1,3
COMMENTS
7256527 is probably the last term.
MATHEMATICA
a = c = 0; b = 1; lst = {0}; While[a < 10^100000, d = a + b + c; If[ Reverse[idn = IntegerDigits[n]] == idn], AppendTo[lst, d]]; a = b; b = c; c = d]; lst (* Robert G. Wilson v, Nov 09 2017 *)
CROSSREFS
KEYWORD
nonn,base,more,hard
AUTHOR
Chai Wah Wu, Nov 07 2017
STATUS
approved