|
%I #13 Dec 02 2015 16:23:09
%S 1,2,6,12,24,120,240,720,5040,10080,20160,40320,120960,362880,725760,
%T 3628800,39916800,79833600,159667200,479001600,6227020800,12454041600,
%U 87178291200,261534873600,1307674368000,2615348736000,5230697472000
%N Partial products of A027746.
%C a(n) <= A265125(n), a(n) < A265125(n) for n > 10. - _Reinhard Zumkeller_, Dec 02 2015
%H Charles R Greathouse IV, <a href="/A175943/b175943.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) is approximately (n / (e log log n))^(n/log log n). - _Charles R Greathouse IV_, Sep 12 2012
%o (PARI) print1(t=1); for(n=2, 10, f=factor(n); for(i=1, #f[,1], for(j=1,f[i,2], print1(", "t*=f[i,1])))) \\ _Charles R Greathouse IV_, Sep 12 2012
%o (Haskell)
%o a175943 n = a175943_list !! (n-1)
%o a175943_list = scanl1 (*) $ concat a027746_tabf
%o -- _Reinhard Zumkeller_, Dec 02 2015
%Y n! (A000142) is a subsequence.
%Y Cf. A027746.
%Y Cf. A265125.
%K nonn
%O 1,2
%A _Lior Manor_, Oct 27 2010
|
