login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A034882 Product of consecutive factorials. 3
1, 2, 6, 12, 24, 120, 144, 288, 720, 2880, 5040, 17280, 34560, 40320, 86400, 362880, 2073600, 3628800, 12441600, 24883200, 39916800, 203212800, 435456000, 479001600, 6227020800, 10450944000, 14631321600, 62705664000, 87178291200 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

It appears that only 3628800 and 53094139822080000 have more than one representation. We have 3628800 = 10! = 6! * 7! and 53094139822080000 = 8! * 9! * 10! = 6! * 7! * 8! * 9!. - T. D. Noe, Jun 13 2012

LINKS

T. D. Noe, Table of n, a(n) for n = 1..1000

MATHEMATICA

Union[Reap[For[x1=1, x1 <= 14, x1++, x2=x1; a=x1!; While[a < 10^11, Sow[a]; x2 = x2+1; a = a*x2!]]][[2, 1]]] (* Jean-Fran├žois Alcover, Jun 11 2012, after PARI *)

nn = 20; t = Range[nn]!; j = 2; While[i = 2; new = 0; While[p = Times @@ Take[t, {i, i + j - 1}]; p < t[[nn]], AppendTo[t, p]; new++; i++]; new > 0, j++]; t = Union[t] (* T. D. Noe, Jun 13 2012 *)

PROG

(PARI) l=listcreate(100)

for(x1=1, 14, x2=x1; a=x1!; while(a<1e11, listput(l, a); x2=x2+1; a=a*x2!))

listsort(l, 1); print(l)

/* Michael B. Porter, Mar 15 2010 */

CROSSREFS

Sequence in context: A309016 A302652 A180071 * A175943 A228816 A294565

Adjacent sequences:  A034879 A034880 A034881 * A034883 A034884 A034885

KEYWORD

easy,nonn,nice

AUTHOR

Erich Friedman

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 14 13:50 EDT 2021. Contains 343884 sequences. (Running on oeis4.)