cp's OEIS Frontend

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.

A183142 Beatty sequence for 2/(3+sqrt(3)).

This page as a plain text file.
%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