OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[x_] := Prime[x+1]-Prime[x]; Table[LCM[f[w+1], f[w]], {w, 1, 128}]
Table[LCM[(Prime[n + 1] - Prime[n]), Prime[n + 2] - Prime[n + 1]], {n, 100}] (* Vincenzo Librandi, Mar 15 2018 *)
LCM@@#&/@Partition[Differences[Prime[Range[90]]], 2, 1] (* Harvey P. Dale, Oct 11 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 22 2003
STATUS
approved