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 A184582 #4 Mar 30 2012 18:57:16
%S A184582 1,3,5,6,8,10,11,13,14,16,18,19,21,22,24,26,27,29,31,32,34,35,37,39,
%T A184582 40,42,44,45,47,48,50,52,53,55,56,58,60,61,63,65,66,68,69,71,73,74,76,
%U A184582 77,79,81,82,84,86,87,89,90,92,94,95,97,99,100,102,103,105,107,108,110,111,113,115,116,118,120,121,123,124,126,128,129,131,133,134,136,137,139,141,142,144,145,147,149,150,152,154,155,157,158,160,162,163,165,166,168,170,171,173,175,176,178,179,181,183,184,186,188,189,191,192,194
%N A184582 floor[(n+1/5)r] where r=(1+sqrt(5))/2; complement of A184583.
%F A184582 a(n)=floor[(n+1/5)r] where r=(1+sqrt(5))/2.
%t A184582 r=(1+5^(1/2))/2;c=-1/5;s=r/(r-1);
%t A184582 Table[Floor[n*r-c*r],{n,1,120}] (* A184582 *)
%t A184582 Table[Floor[n*s+c*s],{n,1,120}] (* A184583 *)
%Y A184582 Cf. A184583.
%K A184582 nonn
%O A184582 1,2
%A A184582 _Clark Kimberling_, Jan 17 2011