_Clark Kimberling (ck6(AT)evansville.edu), _, Jan 14 2011

proposed

approved

allocated for Clark KimberlingLower s-Wythoff sequence of A184429 (quarter-squares). Complement of A184430.

1, 3, 4, 6, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 20, 22, 23, 24, 25, 27, 28, 29, 30, 32, 33, 34, 35, 36, 37, 39, 40, 41, 42, 43, 45, 46, 47, 48, 49, 50, 52, 53, 54, 55, 56, 57, 58, 60, 61, 62, 63, 64, 65, 66, 68, 69, 70, 71, 72, 73, 74, 76, 77, 78, 79, 80, 81, 82, 83, 85, 86, 87, 88, 89, 90, 91, 92, 93, 95, 96, 97, 98, 99, 100, 101, 102, 103, 105, 106, 107, 108, 109, 110, 111, 112, 113, 115, 116, 117, 118

1,2

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

mex:=First[Complement[Range[1, Max[#1]+1], #1]]&;

s[n_]:=Floor[((n+1)/2)^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}]~

Cf. A184117, A184430.

allocated

nonn

Clark Kimberling (ck6(AT)evansville.edu), Jan 14 2011

approved

proposed

allocated for Clark Kimberling

allocated

approved