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 A184588 #4 Mar 30 2012 18:57:16 %S A184588 2,3,5,7,8,10,11,13,15,16,18,19,21,22,24,26,27,29,30,32,34,35,37,38, %T A184588 40,41,43,45,46,48,49,51,52,54,56,57,59,60,62,64,65,67,68,70,71,73,75, %U A184588 76,78,79,81,83,84,86,87,89,90,92,94,95,97,98,100,102,103,105,106,108,109,111,113,114,116,117,119,121,122,124,125,127,128,130,132,133,135,136,138,140,141,143,144,146,147,149,151,152,154,155,157,158,160,162,163,165,166,168,170,171,173,174,176,177,179,181,182,184,185,187,189,190 %N A184588 floor[(n+1/2)*e/(e-1)]. %C A184588 The complement of A184588 appears to be A060644. %F A184588 a(n)=floor[(n+1/2)*e/(e-1)]. %t A184588 r=E; c=1/2; s=r/(r-1); %t A184588 Table[Floor[n*r-c*r],{n,1,120}] (* A060644? *) %t A184588 Table[Floor[n*s+c*s],{n,1,120}] (* A184588 *) %Y A184588 Cf. A060644. %K A184588 nonn %O A184588 1,1 %A A184588 _Clark Kimberling_, Jan 17 2011