|
|
A080375
|
|
a(n)=distinct values of lcm of first n consecutive prime differences[see A080374].
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|