A046262 Largest palindromic substring in 4^n.
1, 4, 6, 6, 6, 4, 9, 8, 55, 262, 8, 9, 777, 88, 545, 737, 949, 717, 767, 77, 777, 111, 444, 77, 767, 42624, 737, 9, 575, 7117, 606, 6116, 737, 838, 52825, 717, 828, 58085, 914323419, 676, 747, 585, 3113, 737, 9, 4224, 959, 838, 33, 5005, 22822, 12821, 282
Offset: 0
Crossrefs
Cf. A046270.
Programs
-
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 *)