A080375 a(n)=distinct values of lcm of first n consecutive prime differences[see A080374].

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,2

Links

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

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 *)

Crossrefs

Cf. A001223, A080374, A080376.

Sequence in context: A051905 A051426 A048148 * A136253 A266079 A284125

Adjacent sequences: A080372 A080373 A080374 * A080376 A080377 A080378

Keyword

nonn

Author

Labos Elemer, Feb 27 2003

Extensions

More terms from Harvey P. Dale, Nov 06 2021

Status

approved