A076976 -id:A076976 - cp's OEIS frontend

A369075 Records in A076976.

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

Offset: 1

Harvey P. Dale, Jan 12 2024

nonn

Cf. A076976.

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

A076977 Product of the largest prime divisors of composite numbers between successive primes.

Original entry on oeis.org

1, 2, 3, 30, 3, 70, 3, 385, 4095, 5, 7854, 1235, 7, 1265, 23205, 127281, 5, 62062, 2737, 3, 502645, 615, 1632323, 124158255, 385, 17, 4823, 3, 2849, 24662087802577225, 1118, 1190255, 23, 499504581303, 5, 1431859, 1444515, 37433, 1263899, 11725483

Offset: 1

Amarnath Murthy, Oct 23 2002

nonn

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A076976.

plpd[l_]:=Times@@(FactorInteger[#][[-1,1]]&/@l); plpd/@(Range[#[[1]]+1, #[[2]]-1]&/@Partition[Prime[Range[50]],2,1]) (* Harvey P. Dale, Sep 02 2020 *)

More terms from Sascha Kurz, Jan 22 2003

cp's OEIS Frontend

A369075 Records in A076976.

Views

Author

Keywords

Crossrefs

Programs

Mathematica