|
| |
|
|
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
|
T. D. Noe, Table of n, a(n) for n = 0..300
|
|
|
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
|
Cf. A046277.
Sequence in context: A008904 A074382 A061350 * A003571 A068457 A102510
Adjacent sequences: A046273 A046274 A046275 * A046277 A046278 A046279
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Patrick De Geest, Jun 15 1998.
|
|
|
EXTENSIONS
|
Corrected by D. S. McNeil, Dec 10 2010
|
|
|
STATUS
|
approved
|
| |
|
|
