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 A183296 #4 Mar 30 2012 18:57:12 %S A183296 1,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,26,27,28, %T A183296 29,30,31,32,33,34,35,36,37,39,40,41,42,43,44,45,46,47,48,49,50,51,52, %U A183296 53,54,55,56,57,58,59,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85 %N A183296 Complement of A005476. %F A183296 (See the Mathematica code.) %t A183296 a=5/2; b=-1/2; %t A183296 F[n_]:=a*n^2+b*n; %t A183296 R[n_]:=(n/a+((b-1)/(2a))^2)^(1/2); %t A183296 G[n_]:=n-1+Ceiling[R[n]-(b-1)/(2a)]; %t A183296 Table[F[n], {n,60}] %t A183296 Table[G[n], {n,100}] %Y A183296 Cf. A005476. %K A183296 nonn %O A183296 1,2 %A A183296 _Clark Kimberling_, Jan 03 2011