A136156 Quotients p!/n arising in A139171.

2, 1, 2, 30, 24, 1, 720, 15, 560, 12, 3628800, 10, 479001600, 360, 8, 315, 20922789888000, 280, 6402373705728000, 6, 240, 1814400, 1124000727777607680000, 5, 1596672, 239500800, 1478400, 180, 304888344611713860501504000000, 4, 265252859812191058636308480000000

Offset: 1

Author

N. J. A. Sloane, Apr 13 2008

Keywords

• nonn

Programs

Mathematica

f[n_] := Block[{m = 1}, While[ !IntegerQ[ Prime@ m!/n], m++ ]; Prime@ m!/n]; Array[f, 31] (* Robert G. Wilson v, Apr 17 2008 *)

Extensions

More terms from Robert G. Wilson v, Apr 17 2008