OFFSET
1,2
MATHEMATICA
Map[GCD @@ # &, Partition[#, 2, 1] &@ Differences@ Prime@ Range@ 100] (* Michael De Vlieger, Feb 18 2017 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Labos Elemer, Dec 06 2000
STATUS
approved