login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Lower s-Wythoff sequence of A184429 (quarter-squares). Complement of A184430.
2

%I #4 Mar 30 2012 18:57:13

%S 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,

%T 34,35,36,37,39,40,41,42,43,45,46,47,48,49,50,52,53,54,55,56,57,58,60,

%U 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

%N Lower s-Wythoff sequence of A184429 (quarter-squares). Complement of A184430.

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

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

%t s[n_]:=Floor[((n+1)/2)^2];a[1]=1;b[n_]:=b[n]=s[n]+a[n];

%t a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,1,n-1}]]];

%t Table[s[n],{n,40}]

%t Table[a[n],{n,100}]

%t Table[b[n],{n,100}]~

%Y Cf. A184117, A184430.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jan 14 2011