OFFSET
0,2
MATHEMATICA
Table[Max[Select[FromDigits/@Flatten[Table[Partition[IntegerDigits[4^n], k, 1], {k, IntegerLength[4^n]}], 1], PalindromeQ]], {n, 0, 60}] (* Harvey P. Dale, Sep 25 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved