|
| |
| |
|
|
|
1, 2, 12, 120, 168, 1680, 2217600, 2620800, 7539840, 2459358720, 45321292800, 168289228800, 3854798070733209600, 7300628131494297600, 72805439777469235200, 1670428855291340390400, 101997752596918507929600, 292808914099957994618880000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
|
|
|
MATHEMATICA
|
pspd[{p1_, p2_}]:=Times@@(FactorInteger[#][[1, 1]]&/@Range[p1+1, p2-1]); DeleteDuplicates[ pspd/@Partition[Prime[Range[2000]], 2, 1], GreaterEqual]
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
