login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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
OFFSET
0,3
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: A334397 A074382 A061350 * A368516 A283614 A333520
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Corrected by D. S. McNeil, Dec 10 2010
STATUS
approved