A113965 a(n) = (A113963(n)) - (A113963(n+1)).

-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

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

Cf. A113963, A113964.

Sequence in context: A242017 A063714 A235649 * A162277 A365512 A060397

Adjacent sequences: A113962 A113963 A113964 * A113966 A113967 A113968

Keyword

sign

Author

Leroy Quet, Nov 10 2005

Extensions

Extended by Ray Chandler, Nov 13 2005

Status

approved