OFFSET
1,2
COMMENTS
Using one of the fast algorithms for computing the last nonzero digit of the factorial (A008904) it is easy to see that also 200000000 and 2*10^16 are terms.
EXAMPLE
29^2 = 841 and 29! = 8(841)761993739701954543616000000.
MATHEMATICA
lst={}; Do[If[{}!= StringPosition[ToString[n! ], ToString[n^2]], AppendTo[lst, n]], {n, 10000}]; lst
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Giovanni Resta, Jan 26 2006
EXTENSIONS
Extended by Giovanni Resta, Apr 04 2014
STATUS
approved