login
Let n! = 2^a*3^b*5^c*7^d.... in canonical form, then a(n) = concatenation a,b,c,d,...
0

%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