|
| |
|
|
A036691
|
|
Compositorial numbers: product of first n composite numbers.
|
|
18
| |
|
|
1, 4, 24, 192, 1728, 17280, 207360, 2903040, 43545600, 696729600, 12541132800, 250822656000, 5267275776000, 115880067072000, 2781121609728000, 69528040243200000, 1807729046323200000, 48808684250726400000, 1366643159020339200000
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| a(A196415(n)) = A141092(n) * A053767(A196415(n)). [Reinhard Zumkeller, Oct 03 2011]
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=0..100
|
|
|
EXAMPLE
| a(3)=c(1)*c(2)*c(3)=4*6*8=192.
|
|
|
MAPLE
| A036691 := proc(n)
mul(A002808(i), i=1..n) ;
end proc: # R. J. Mathar, Oct 03 2011
|
|
|
MATHEMATICA
| Composite[n_] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; Table[ Product[ Composite[i], {i, 1, n}], {n, 0, 18}] (* From Robert G. Wilson v, Sep 13 2003 *)
nn=50; cnos=Complement[Range[nn], Prime[Range[PrimePi[nn]]]]; Rest[FoldList[ Times, 1, cnos]] (* From Harvey P. Dale, May 19 2011 *)
A036691 = Union[Table[n!/(Times@@Prime[Range[PrimePi[n]]]), {n, 29}]] (* From Alonso del Arte, Sep 21 2011 *)
|
|
|
PROG
| (Haskell)
a036691_list = scanl1 (*) a002808_list -- Reinhard Zumkeller, Oct 03 2011
|
|
|
CROSSREFS
| Cf. primorial numbers A002110. Distinct members of A049614. See also A049650, A060880.
Sequence in context: A088815 A193854 A199540 * A002866 A182798 A073840
Adjacent sequences: A036688 A036689 A036690 * A036692 A036693 A036694
|
|
|
KEYWORD
| nice,nonn,easy
|
|
|
AUTHOR
| Felice Russo (frusso(AT)micron.com)
|
|
|
EXTENSIONS
| Corrected and extended by Niklas Eriksen (f95-ner(AT)nada.kth.se) and N. J. A. Sloane (njas(AT)research.att.com).
|
| |
|
|
