login
A126244
p! if p prime and p+2 prime.
0
6, 120, 39916800, 355687428096000, 8841761993739701954543616000000, 33452526613163807108170062053440751665152000000000, 138683118545689835737939019720389406345902876772687432540821294940160000000000000
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
Sequence in context: A317888 A053710 A336389 * A336808 A296801 A249168
KEYWORD
easy,nonn
AUTHOR
Zerinvary Lajos, Mar 08 2007
STATUS
approved