%I #8 Apr 21 2014 08:30:33
%S 11,13,4080,93024,1235591280,1381013105472000,3379847863392000,
%T 269397128065642536960000,29762015082771948783206400000,
%U 97373549346895180258099200000,16673311804088600473666429255680000
%N Prime(n)!/composite(n)!.
%C For n < 5 the result is not an integer, so the offset is taken to be 5.
%H Vincenzo Librandi, <a href="/A096074/b096074.txt">Table of n, a(n) for n = 5..99</a>
%e a(7) = prime(7)!/composite(7)! = 17!/14! = 4080.
%t 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 *)
%o (PARI) composite(n)=local(k);k=1;while(n>0,if(!isprime(k+1),n--);k++);k
%o for(n=5,15,print1(prime(n)!/composite(n)!,","))
%K nonn
%O 5,1
%A _Amarnath Murthy_, Jun 20 2004
%E Edited and extended by _Klaus Brockhaus_, Jun 21 2004
|