|
%I #6 Nov 18 2018 00:58:16
%S 0,1,11,31,311,421,4211,7211,7411,8421,84211,105211,1052111,1152211,
%T 1163211,1563211,15632111,16832111,168321111,188421111,189431111,
%U 199432111,1994321111,2304321111,2306321111,2406322111,2436322111
%N Let n! = 2^a*3^b*5^c*7^d.... in canonical form, then a(n) = concatenation a,b,c,d,...
%C n! is the least number with this canonical form.
%t Do[Print[FromDigits[Last /@ FactorInteger[n! ]]], {n, 1, 30}] (* _Ryan Propper_, Jul 21 2005 *)
%K base,nonn
%O 1,3
%A _Amarnath Murthy_, Apr 22 2004
%E More terms from _Ryan Propper_, Jul 21 2005
|
