A046276 Largest palindromic substring in n! without an initial zero.

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

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: A334397 A074382 A061350 * A368516 A283614 A333520

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