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