A080375 Distinct values of A080374, where A080374(n) is the lcm of the first n consecutive prime differences.

1, 2, 4, 12, 24, 168, 840, 2520, 27720, 471240, 942480, 12252240, 24504480, 465585120, 2327925600, 72165693600, 216497080800, 6278415343200, 144403552893600, 288807105787200, 12418705548849600, 509166927502833600, 18839176317604843200, 131874234223233902400, 6989334413831396827200, 328498717450075650878400

Offset: 1

Author

Labos Elemer, Feb 27 2003

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..65

Crossrefs

Cf. A001223, A080374, A080376.

Programs

Mathematica

s=1; Do[s1=s; s=LCM[s, Prime[n+1]-Prime[n]]; If[Greater[s, s1], Print[s]], {n, 1, 100000}]
Module[{nn=100000,dprs},dprs=Differences[Prime[Range[nn]]];Table[LCM@@ Take[ dprs,n],{n,nn-1}]]//Union (* Harvey P. Dale, Nov 06 2021 *)

Extensions

More terms from Harvey P. Dale, Nov 06 2021