|
%I #5 Nov 21 2013 12:49:02
%S 6,120,39916800,355687428096000,8841761993739701954543616000000,
%T 33452526613163807108170062053440751665152000000000,
%U 138683118545689835737939019720389406345902876772687432540821294940160000000000000
%N p! if p prime and p+2 prime.
%e 3 and 5...........3!=6
%e 5 and 7...........5!=120
%e 17 and 19........17!=39916800
%p ZL:=[]:for p from 1 to 71 do if (isprime(p) and isprime(p+2)) then ZL:=[op(ZL),(p!)]; fi; od; print(ZL);
%t #!&/@Transpose[Select[Partition[Prime[Range[20]],2,1],Last[#]-First[#] ==2&]] [[1]] (* _Harvey P. Dale_, Apr 11 2011 *)
%K easy,nonn
%O 1,1
%A _Zerinvary Lajos_, Mar 08 2007
| 