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 A054406 #42 Feb 16 2025 08:32:42 %S A054406 2,4,7,9,11,14,16,18,21,23,26,28,30,33,35,37,40,42,44,47,49,52,54,56, %T A054406 59,61,63,66,68,70,73,75,78,80,82,85,87,89,92,94,97,99,101,104,106, %U A054406 108,111,113,115,118,120,123,125,127,130,132,134,137,139,141,144,146 %N A054406 Beatty sequence for (3+sqrt 3)/2; complement of A022838. %C A054406 Numbers k such that A194979(k+1) = A194979(k). - _Clark Kimberling_, Dec 02 2014 %H A054406 Vincenzo Librandi, <a href="/A054406/b054406.txt">Table of n, a(n) for n = 1..10000</a> %H A054406 Clark Kimberling, <a href="https://www.emis.de/journals/INTEGERS/papers/q15/q15.Abstract.html">Beatty sequences and trigonometric functions</a>, Integers 16 (2016), #A15. %H A054406 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BeattySequence.html">Beatty Sequence</a> %H A054406 <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a> %p A054406 A054406 := proc(n) n*(3+sqrt(3))/2 ; floor(%) ; end proc: # _R. J. Mathar_, Feb 26 2011 %t A054406 a054406[n_Integer] := Floor[# (3 + Sqrt[3])/2] & /@ Range[n]; a054406[62] (* _Michael De Vlieger_, Dec 14 2014 *) %o A054406 (Magma) [Floor(n*(3+Sqrt(3))/2): n in [1..70]]; // _Vincenzo Librandi_, Oct 25 2011 %o A054406 (PARI) is(n)=sqrtint((n+1)^2\3)==sqrtint(n^2\3) \\ _Charles R Greathouse IV_, Nov 01 2021 %Y A054406 Cf. A194143 (partial sums), A182778 (even bisection), A184799 (prime terms). %Y A054406 Cf. A022838 (complement), A026255. %Y A054406 Cf. A194979. %K A054406 nonn %O A054406 1,1 %A A054406 _Eric W. Weisstein_