|
|
A096074
|
|
Prime(n)!/composite(n)!.
|
|
1
|
|
|
11, 13, 4080, 93024, 1235591280, 1381013105472000, 3379847863392000, 269397128065642536960000, 29762015082771948783206400000, 97373549346895180258099200000, 16673311804088600473666429255680000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
5,1
|
|
COMMENTS
|
For n < 5 the result is not an integer, so the offset is taken to be 5.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|