login
Upper s-Wythoff sequence of A000290 (the squares). Complement of A184427.
4

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

%S 2,7,13,21,31,44,58,74,92,112,135,159,185,213,243,275,309,346,384,424,

%T 466,510,556,604,654,706,761,817,875,935,997,1061,1127,1195,1265,1337,

%U 1411,1487,1566,1646,1728,1812,1898,1986,2076,2168,2262,2358,2456,2556,2658,2763,2869,2977,3087,3199,3313,3429,3547,3667,3789,3913,4039,4167,4297,4429,4564,4700,4838,4978,5120

%N Upper s-Wythoff sequence of A000290 (the squares). Complement of A184427.

%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_]:=n^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, A184427.

%K nonn

%O 1,1

%A _Clark Kimberling_, Jan 14 2011