OFFSET
1,4
FORMULA
If n! = 2^A*3^B*5^C*... then the largest index is A and a(n) = (2*3*5*...)^A/(n!).
EXAMPLE
a(6) = 1125 as 1125*6! = 810000 = 30^4. 6! = 720 = 2^4*3^2*5 and a(6) = (2*3*5)^4/6! = 1125.
MAPLE
for n from 2 to 20 do f := ifactors(n!); k := f[2][1][2]:p := product(f[2][i][1]^k, i=1..nops(f[2])):a[n] := p/n!:od:1, seq(a[j], j=2..20);
MATHEMATICA
a[1]=1; a[n_] := Module[{f}, f=FactorInteger[n! ]; (Times@@First/@f)^f[[1, 2]]/n! ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 31 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Feb 01 2003
STATUS
approved