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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A088301 A factorial composite type chaotic sequence based on the prime limit n*Log[n]. 0
 1, 2, 4, 48, 90, 12, 3360, 18, 9240, 15600, 756, 31680, 42840, 59280, 1848, 99360, 6497400, 2970, 185136, 234360, 18670080, 347760, 421800, 480480, 557928, 55965360, 70073640, 857280, 98960400, 1157520, 11880, 162983520, 190578024 (list; graph; refs; listen; history; text; internal format)
 OFFSET 2,2 COMMENTS This result puzzles me as the straight formula works so well: n!=Product[Prime[i],{i,1,PrimePi[n]}]*Product[Composite[i],{i,1,n-PrimePi[n]}] LINKS FORMULA a(n) = Factorial[Floor[n*Log[n]]]/Product[Prime[i], {i, 2, PrimePi[Floor[n*Log[n]]]}] b(n)=a(n)/a(n-1) MATHEMATICA p[n_]=Factorial[Floor[n*Log[n]]]/ Product[Prime[i], {i, 2, PrimePi[Floor[n*Log[n]]]}] digits=50 a0=Table[p[n]/p[n-1], {n, 2, digits}] CROSSREFS Cf. A002808. Sequence in context: A018325 A099804 A019596 * A212429 A298903 A144580 Adjacent sequences:  A088298 A088299 A088300 * A088302 A088303 A088304 KEYWORD nonn AUTHOR Roger L. Bagula, Nov 04 2003 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.

Last modified September 26 16:43 EDT 2020. Contains 337374 sequences. (Running on oeis4.)