A184484 Lower s-Wythoff sequence, where s(n)=3n-2. Complement of A184485.

1, 3, 4, 5, 6, 8, 9, 10, 12, 13, 14, 16, 17, 18, 20, 21, 22, 23, 25, 26, 27, 29, 30, 31, 33, 34, 35, 36, 38, 39, 40, 42, 43, 44, 46, 47, 48, 49, 51, 52, 53, 55, 56, 57, 59, 60, 61, 62, 64, 65, 66, 68, 69, 70, 72, 73, 74, 76, 77, 78, 79, 81, 82, 83, 85, 86, 87, 89, 90, 91, 92, 94, 95, 96, 98, 99, 100, 102, 103, 104, 105, 107, 108, 109, 111, 112, 113, 115, 116, 117, 119, 120, 121, 122, 124, 125, 126, 128, 129, 130, 132, 133, 134, 135, 137, 138, 139, 141, 142, 143, 145, 146, 147, 148, 150, 151, 152, 154, 155, 156

Offset: 1

Author

Clark Kimberling, Jan 15 2011

Keywords

• nonn

Crossrefs

Cf. A184117, A184485.

Programs

Mathematica

k=3; r=2; 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}]