A113964 a(n) = (A113963(n)) + (A113963(n+1)).

5, 11, 9, 7, 13, 11, 13, 23, 19, 17, 25, 23, 25, 35, 31, 29, 37, 43, 38, 37, 47, 43, 44, 47, 50, 53, 55, 58, 59, 67, 73, 66, 61, 70, 67, 69, 73, 74, 83, 79, 77, 85, 91, 89, 92, 103, 98, 94, 95, 97, 106, 103, 105, 109, 110, 119, 115, 113, 115, 118, 127, 133, 131, 130, 127

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, 66}]; Total /@ Partition[a, 2, 1]] (* Michael De Vlieger, Sep 28 2017 *)

Crossrefs

Cf. A113963, A113965.

Sequence in context: A329005 A290195 A082952 * A356480 A075261 A254766

Adjacent sequences: A113961 A113962 A113963 * A113965 A113966 A113967

Keyword

nonn

Author

Leroy Quet, Nov 10 2005

Extensions

Extended by Ray Chandler, Nov 13 2005

Status

approved