OFFSET
1,5
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
ld[x_] := Apply[LCM, Table[Prime[w+1]-Prime[w], {w, 1, x}]]; Table[ld[j]/(Prime[j+1]-Prime[j]), {j, 1, 100}]
seq[len_] := Module[{d = Differences[Prime[Range[len+1]]]}, FoldList[LCM, d]/d]; seq[70] (* Amiram Eldar, Feb 08 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 15 2003
STATUS
approved