|
|
A175943
|
|
Partial products of A027746.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(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
(Haskell)
a175943 n = a175943_list !! (n-1)
a175943_list = scanl1 (*) $ concat a027746_tabf
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|