A184482 Lower s-Wythoff sequence, where s(n)=3n-1. Complement of A184483.

1, 2, 4, 5, 6, 8, 9, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 24, 26, 27, 28, 30, 31, 32, 34, 35, 36, 38, 39, 40, 41, 43, 44, 45, 47, 48, 49, 51, 52, 53, 54, 56, 57, 58, 60, 61, 62, 64, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 84, 86, 87, 88, 90, 91, 92, 94, 95, 96, 97, 99, 100, 101, 103, 104, 105, 107, 108, 109, 110, 112, 113, 114, 116, 117, 118, 120, 121, 122, 123, 125, 126, 127, 129, 130, 131, 133, 134, 135, 137, 138, 139, 140, 142, 143, 144, 146, 147, 148, 150, 151, 152, 153, 155, 156

Offset: 1

Author

Clark Kimberling, Jan 15 2011

Keywords

• nonn

Crossrefs

Cf. A184117, A184483.

Programs

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}]