OFFSET
1,1
EXAMPLE
3 and 5...........3!=6
5 and 7...........5!=120
17 and 19........17!=39916800
MAPLE
ZL:=[]:for p from 1 to 71 do if (isprime(p) and isprime(p+2)) then ZL:=[op(ZL), (p!)]; fi; od; print(ZL);
MATHEMATICA
#!&/@Transpose[Select[Partition[Prime[Range[20]], 2, 1], Last[#]-First[#] ==2&]] [[1]] (* Harvey P. Dale, Apr 11 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zerinvary Lajos, Mar 08 2007
STATUS
approved