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!)
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

Table of n, a(n) for n=2..34.

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.

License Agreements, Terms of Use, Privacy Policy. .

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