login
A113965
a(n) = (A113963(n)) - (A113963(n+1)).
3
-3, -3, 5, -3, -3, 5, -7, -3, 7, -5, -3, 5, -7, -3, 7, -5, -3, -3, 8, -7, -3, 7, -8, 5, -8, 5, -7, 4, -5, -3, -3, 10, -5, -4, 7, -9, 5, -6, -3, 7, -5, -3, -3, 5, -8, -3, 8, -4, 3, -5, -4, 7, -9, 5, -6, -3, 7, -5, 3, -6, -3, -3, 5, -4, 7, -9, 5, -6, -3, 7, -5, -3, -3, 5, -7, 4, -7, 6, -5, -4, 7, -5, 3, -6, -3, 5, -9, 5, -3, 4, -5, -3, -3, 8, -7, 3, -5
OFFSET
1,1
COMMENTS
|(A113965(n))| does not divide (A113964(n)).
LINKS
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
Sequence in context: A242017 A063714 A235649 * A162277 A365512 A060397
KEYWORD
sign
AUTHOR
Leroy Quet, Nov 10 2005
EXTENSIONS
Extended by Ray Chandler, Nov 13 2005
STATUS
approved