This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A184428 #4 Mar 30 2012 18:57:13
%S A184428 2,7,13,21,31,44,58,74,92,112,135,159,185,213,243,275,309,346,384,424,
%T A184428 466,510,556,604,654,706,761,817,875,935,997,1061,1127,1195,1265,1337,
%U A184428 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 A184428 Upper s-Wythoff sequence of A000290 (the squares). Complement of A184427.
%C A184428 See A184117 for the definition of lower and upper s-Wythoff sequences.
%t A184428 mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
%t A184428 s[n_]:=n^2;a[1]=1;b[n_]:=b[n]=s[n]+a[n];
%t A184428 a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,1,n-1}]]];
%t A184428 Table[s[n],{n,40}]
%t A184428 Table[a[n],{n,100}]
%t A184428 Table[b[n],{n,100}]
%Y A184428 Cf. A184117, A184427.
%K A184428 nonn
%O A184428 1,1
%A A184428 _Clark Kimberling_, Jan 14 2011