OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Block[{a = {1}, k}, Do[k = 2; While[Nand[FreeQ[a, k], ! Divisible[k + a[[i - 1]], Abs[k - a[[i - 1]] ]]], k++]; AppendTo[a, k], {i, 2, 98}]; -Differences@ a] (* Michael De Vlieger, Sep 28 2017 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Leroy Quet, Nov 10 2005
EXTENSIONS
Extended by Ray Chandler, Nov 13 2005
STATUS
approved