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 A327255 #18 Sep 30 2019 10:44:06 %S A327255 2,4,6,8,11,13,15,17,19,20,22,24,26,28,31,33,35,37,39,40,42,44,46,48, %T A327255 51,53,55,57,59,60,62,64,66,68,71,73,75,77,79,80,82,84,86,88,91,93,95, %U A327255 97,100,102,104,106,108,109,111,113,115,117,120,122,124 %N A327255 Positions of 1's in {A327253(n) : n > 0}. %C A327255 Although a(n)/n->2, the sequence a(n)-2n appears to be unbounded above. %C A327255 Positive integers k such that A327253(k) = 1. - _Jianing Song_, Sep 30 2019 %H A327255 Clark Kimberling and Jianing Song, <a href="/A327255/b327255.txt">Table of n, a(n) for n = 1..10000</a> %t A327255 r = Sqrt[6]; z = 300; %t A327255 t = Table[Floor[2 n r] - 2 Floor[n*r], {n, 1, z}] (* {A327253(n) : n > 0} *) %t A327255 Flatten[Position[t, 0]] (* A327254 *) %t A327255 Flatten[Position[t, 1]] (* A327255 *) %Y A327255 Cf. A327253, A327254 (complement). %K A327255 nonn,easy %O A327255 1,1 %A A327255 _Clark Kimberling_, Sep 03 2019 %E A327255 Corrected by _Jianing Song_, Sep 30 2019