OFFSET
1,6
MATHEMATICA
Join[{0}, Table[NextPrime[n+1, -1]-FactorInteger[n][[-1, 1]], {n, 2, 90}]] (* Harvey P. Dale, Nov 27 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 04 2003
STATUS
approved