A046261 Largest palindromic substring in 3^n.

1, 3, 9, 7, 8, 4, 9, 8, 656, 9, 9, 1771, 1441, 323, 969, 434, 7, 9, 9, 162261, 44, 353, 313, 414, 282, 88, 828, 484, 767, 3773, 94649, 767, 888, 5665, 6996, 999, 999, 909, 2992, 76267, 545, 717, 989, 707, 232, 55, 959, 8778, 6336, 32923, 7897987, 3693963, 989

Offset: 0

Author

Patrick De Geest, Jun 15 1998

Keywords

• nonn
• base

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..500

Crossrefs

Cf. A046269.

Programs

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 *)