A184427 Lower s-Wythoff sequence of A000290 (the squares). Complement of A184428.

1, 3, 4, 5, 6, 8, 9, 10, 11, 12, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109

Offset: 1

Author

Clark Kimberling, Jan 14 2011

Keywords

• nonn

Comments

See A184117 for the definition of lower and upper s-Wythoff sequences.

Crossrefs

Cf. A184117, A184428.

Programs

Mathematica

mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
s[n_]:=n^2;a[1]=1;b[n_]:=b[n]=s[n]+a[n];
a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,1,n-1}]]];
Table[s[n],{n,40}]
Table[a[n],{n,100}]
Table[b[n],{n,100}]