OFFSET
2,3
MATHEMATICA
g[n_] := (FactorInteger[n])[[1]][[1]]; f[n_] := g[n + 1] - g[n]; Table[f[i], {i, 2, 100}]
CROSSREFS
KEYWORD
sign
AUTHOR
Joseph L. Pe, Jun 10 2002
STATUS
approved