|
|
A046276
|
|
Largest palindromic substring in n! without an initial zero.
|
|
2
|
|
|
1, 1, 2, 6, 4, 2, 7, 5, 4, 88, 88, 99, 9, 22, 87178, 767, 898, 55, 737, 121, 66, 909, 7777, 25852, 484, 1551, 66, 8888, 888, 93739, 848, 82228, 353, 881188, 414, 6666, 999, 59795, 1111, 99, 69596, 61316, 4260624, 383, 8448, 7337, 89498, 979, 67776, 828
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
EXAMPLE
|
14! = {87178}291200.
|
|
MATHEMATICA
|
isPal[d_List] := d[[1]] != 0 && d == Reverse[d]; Table[d = IntegerDigits[n!]; k = Length[d]; While[s = Select[Partition[d, k, 1], isPal]; s == {}, k--]; Max[FromDigits /@ s], {n, 0, 100}] (* T. D. Noe, Mar 25 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|