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 A330117 #13 Feb 16 2025 08:33:59
%S A330117 1,3,5,7,8,10,12,14,15,17,19,21,22,24,26,28,29,31,33,35,36,38,40,42,
%T A330117 43,45,47,49,50,52,54,56,57,59,61,63,64,66,68,70,71,73,75,77,78,80,82,
%U A330117 84,85,87,89,91,93,94,96,98,100,101,103,105,107,108,110,112
%N A330117 Beatty sequence for 1+x, where 1/(1+x) + 1/(1+x+x^2) = 1.
%C A330117 Let x be the positive solution of 1/(1+x) + 1/(1+x+x^2) = 1. Then (floor(n*(1+x))) and (floor(n*(1+x+x^2))) are a pair of Beatty sequences; i.e., every positive integer is in exactly one of the sequences. See the Guide to related sequences at A329825.
%H A330117 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BeattySequence.html">Beatty Sequence.</a>
%H A330117 <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%F A330117 a(n) = floor(n*(1+x)), where x = 0.7548776662... is the constant in A075778.
%t A330117 r = x /. FindRoot[1/(1 + x) + 1/(1 + x + x^2) == 1, {x, 1, 2}, WorkingPrecision -> 200]
%t A330117 RealDigits[r] (* A075778 *)
%t A330117 Table[Floor[n*(1 + r)], {n, 1, 250}] (* A330117 *)
%t A330117 Table[Floor[n*(1 + r + r^2)], {n, 1, 250}] (* A330118 *)
%t A330117 Plot[1/(1 + x) + 1/(1 + x + x^2) - 1, {x, 0, 2}]
%Y A330117 Cf. A075778, A329825, A330118 (complement).
%K A330117 nonn,easy
%O A330117 1,2
%A A330117 _Clark Kimberling_, Jan 04 2020