A369075 Records in A076976.

1, 2, 12, 120, 168, 1680, 2217600, 2620800, 7539840, 2459358720, 45321292800, 168289228800, 3854798070733209600, 7300628131494297600, 72805439777469235200, 1670428855291340390400, 101997752596918507929600, 292808914099957994618880000

Offset

1,2

Links

Table of n, a(n) for n=1..18.

Mathematica

pspd[{p1_, p2_}]:=Times@@(FactorInteger[#][[1, 1]]&/@Range[p1+1, p2-1]); DeleteDuplicates[ pspd/@Partition[Prime[Range[2000]], 2, 1], GreaterEqual]

Crossrefs

Cf. A076976.

Sequence in context: A305051 A274305 A317013 * A328857 A373532 A295864

Adjacent sequences: A369072 A369073 A369074 * A369076 A369077 A369078

Keyword

nonn

Author

Harvey P. Dale, Jan 12 2024

Status

approved