Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A046261
Largest palindromic substring in 3^n.
3
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,2
LINKS
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
Cf. A046269.
Sequence in context: A201943 A358614 A201760 * A074806 A010634 A362150
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved