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 A183142 #14 Jul 09 2021 12:11:37 %S A183142 0,0,1,1,2,2,2,3,3,4,4,5,5,5,6,6,7,7,8,8,8,9,9,10,10,10,11,11,12,12, %T A183142 13,13,13,14,14,15,15,16,16,16,17,17,18,18,19,19,19,20,20,21,21,21,22, %U A183142 22,23,23,24,24,24,25,25,26,26,27,27,27,28,28,29,29,30 %N A183142 Beatty sequence for 2/(3+sqrt(3)). %C A183142 A097337 (B.s. for 1/sqrt(3)) + A183142 = A001477 (the nonnegative integers). %F A183142 a(n) = floor(2*n/(3+sqrt(3))). %t A183142 With[{s=(3+Sqrt[3])/2},Floor[Range[100]/s]] (* _Harvey P. Dale_, Feb 15 2016 *) %o A183142 (PARI) default(realprecision,100); s=(3+sqrt(3))/2; for(n=1,99,print1(floor(n/s),", ")) %Y A183142 Cf. A097337. %K A183142 nonn %O A183142 1,5 %A A183142 _Clark Kimberling_, Dec 26 2010 %E A183142 Definition modified and offset changed to 1 by _Georg Fischer_, Jul 09 2021