login
A113964
a(n) = (A113963(n)) + (A113963(n+1)).
3
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
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
Sequence in context: A329005 A290195 A082952 * A356480 A075261 A254766
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 10 2005
EXTENSIONS
Extended by Ray Chandler, Nov 13 2005
STATUS
approved