OFFSET
1,5
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}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 15 2003
STATUS
approved