A096074 Prime(n)!/composite(n)!.

11, 13, 4080, 93024, 1235591280, 1381013105472000, 3379847863392000, 269397128065642536960000, 29762015082771948783206400000, 97373549346895180258099200000, 16673311804088600473666429255680000

Offset

5,1

Comments

For n < 5 the result is not an integer, so the offset is taken to be 5.

Links

Vincenzo Librandi, Table of n, a(n) for n = 5..99

Example

a(7) = prime(7)!/composite(7)! = 17!/14! = 4080.

Mathematica

Module[{nn=30, pr, co, len}, pr=Prime[Range[nn]]; co=Complement[Range[ 2, nn], pr]; len=Min[Length[pr], Length[co]]; #[[1]]!/#[[2]]!&/@Drop[ Thread[ {Take[ pr, len], Take[co, len]}], 4]] (* Harvey P. Dale, Apr 20 2014 *)

Prog

(PARI) composite(n)=local(k); k=1; while(n>0, if(!isprime(k+1), n--); k++); k
for(n=5, 15, print1(prime(n)!/composite(n)!, ", "))

Crossrefs

Sequence in context: A174831 A343838 A360388 * A288611 A068837 A246627

Adjacent sequences: A096071 A096072 A096073 * A096075 A096076 A096077

Keyword

nonn

Author

Amarnath Murthy, Jun 20 2004

Extensions

Edited and extended by Klaus Brockhaus, Jun 21 2004

Status

approved