OFFSET
0,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..500
MATHEMATICA
Max/@Table[Select[FromDigits/@Flatten[Table[Partition[ IntegerDigits[ 3^k], n, 1], {n, IntegerLength[3^k]}], 1], PalindromeQ], {k, 0, 60}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 25 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved