Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A093881
Let n! = 2^a*3^b*5^c*7^d.... in canonical form, then a(n) = concatenation a,b,c,d,...
0
0, 1, 11, 31, 311, 421, 4211, 7211, 7411, 8421, 84211, 105211, 1052111, 1152211, 1163211, 1563211, 15632111, 16832111, 168321111, 188421111, 189431111, 199432111, 1994321111, 2304321111, 2306321111, 2406322111, 2436322111
OFFSET
1,3
COMMENTS
n! is the least number with this canonical form.
MATHEMATICA
Do[Print[FromDigits[Last /@ FactorInteger[n! ]]], {n, 1, 30}] (* Ryan Propper, Jul 21 2005 *)
CROSSREFS
Sequence in context: A098264 A023279 A068715 * A328715 A163763 A201808
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 22 2004
EXTENSIONS
More terms from Ryan Propper, Jul 21 2005
STATUS
approved