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
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Corrected by D. S. McNeil, Dec 10 2010
STATUS
approved