A175943 Partial products of A027746.

1, 2, 6, 12, 24, 120, 240, 720, 5040, 10080, 20160, 40320, 120960, 362880, 725760, 3628800, 39916800, 79833600, 159667200, 479001600, 6227020800, 12454041600, 87178291200, 261534873600, 1307674368000, 2615348736000, 5230697472000

Offset: 1

Author

Lior Manor, Oct 27 2010

Keywords

• nonn

Comments

a(n) <= A265125(n), a(n) < A265125(n) for n > 10. - Reinhard Zumkeller, Dec 02 2015

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..1000

Crossrefs

n! (A000142) is a subsequence.

Cf. A027746.

Cf. A265125.

Programs

Haskell

a175943 n = a175943_list !! (n-1)
a175943_list = scanl1 (*) $ concat a027746_tabf
-- Reinhard Zumkeller, Dec 02 2015

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

Formula

a(n) is approximately (n / (e log log n))^(n/log log n). - Charles R Greathouse IV, Sep 12 2012