A184479 Upper s-Wythoff sequence, where s(n)=3n+1. Complement of A184478.

5, 9, 13, 17, 22, 26, 30, 35, 39, 43, 48, 52, 56, 61, 65, 69, 73, 78, 82, 86, 91, 95, 99, 104, 108, 112, 116, 121, 125, 129, 134, 138, 142, 147, 151, 155, 159, 164, 168, 172, 177, 181, 185, 190, 194, 198, 202, 207, 211, 215, 220, 224, 228, 233, 237, 241, 246

Offset

1,1

Links

M. F. Hasler, Table of n, a(n) for n = 1..1000, Jan 07 2019

Formula

a(n) = A184478(n) + s(n). - M. F. Hasler, Jan 07 2019

For n up to 1000 at least, a(n) = round(m*n + c) with m ~ 4.302774 and c ~ 0.268517. - M. F. Hasler, Jan 07 2019

Mathematica

k=3; r=-1; d=Sqrt[4+k^2];
a[n_]:=Floor[(1/2)(d+2-k)(n+r/(d+2))];
b[n_]:=Floor[(1/2)(d+2+k)(n-r/(d+2))];
Table[a[n], {n, 120}]
Table[b[n], {n, 120}]

Prog

(PARI) A184479_upto(N, s(n)=3*n+1, U=[0], b=[])={until(b[#b]>=N, b=concat(b, s(1+#b)+U[1]+=1); U=setunion(U, [b[#b]]); while(#U>1 && U[2]==U[1]+1, U=U[^1])); b} \\ M. F. Hasler, Jan 07 2019

Crossrefs

Cf. A184117, A184478.

Sequence in context: A004958 A190887 A314683 * A314684 A247128 A314685

Adjacent sequences: A184476 A184477 A184478 * A184480 A184481 A184482

Keyword

nonn

Author

Clark Kimberling, Jan 15 2011

Status

approved