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

Author

Patrick De Geest, Jun 15 1998

Keywords

• nonn
• base

Examples

			14! = {87178}291200.
		

Links

• T. D. Noe, Table of n, a(n) for n = 0..300

Crossrefs

Cf. A046277.

Programs

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 *)

Extensions

Corrected by D. S. McNeil, Dec 10 2010