|
%I #18 Jul 22 2021 07:51:38
%S 1,20,29,170,176,241,3136,9800,20309,20486,53663,73793,94836,200000
%N Numbers k such that the representation of k^2 is a substring of that of k!, in base 10.
%C 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.
%e 29^2 = 841 and 29! = 8(841)761993739701954543616000000.
%t lst={}; Do[If[{}!= StringPosition[ToString[n! ], ToString[n^2]], AppendTo[lst, n]], {n, 10000}]; lst
%Y Cf. A033180, A008904.
%Y CF. A000142, A000290.
%K base,nonn,more
%O 1,2
%A _Giovanni Resta_, Jan 26 2006
%E Extended by _Giovanni Resta_, Apr 04 2014
|
