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 A293319 #8 Sep 08 2022 08:46:19 %S A293319 2,5,10,20,41,83,167,335,670,1340,2680,5361,10723,21446,42893,85787, %T A293319 171575,343150,686301,1372603,2745207,5490415,10980830,21961660, %U A293319 43923321,87846643,175693286,351386573,702773147,1405546295,2811092590,5622185180,11244370361 %N A293319 Greatest integer k such that k/2^n < tau^2, where tau = (1+sqrt(5))/2 = golden ratio. %H A293319 Clark Kimberling, <a href="/A293319/b293319.txt">Table of n, a(n) for n = 0..1000</a> %F A293319 a(n) = floor((r*2^n)), where r = (3+sqrt(5))/2. %F A293319 a(n) = A293320(n) - 1. %t A293319 z = 120; r = 1+GoldenRatio; %t A293319 Table[Floor[r*2^n], {n, 0, z}]; (* A293319 *) %t A293319 Table[Ceiling[r*2^n], {n, 0, z}]; (* A293320 *) %t A293319 Table[Round[r*2^n], {n, 0, z}]; (* A293321 *) %o A293319 (Magma) [Floor((2^n*(3+Sqrt(5)))/2): n in [0..33]]; // _Vincenzo Librandi_, Oct 08 2017 %Y A293319 Cf. A001622, A293313, A293320, A293321. %K A293319 nonn,easy %O A293319 0,1 %A A293319 _Clark Kimberling_, Oct 07 2017