%I #9 Sep 08 2022 08:46:19
%S 1,2,3,5,10,19,37,74,148,296,592,1183,2365,4729,9458,18915,37829,
%T 75657,151314,302628,605255,1210509,2421018,4842036,9684072,19368144,
%U 38736288,77472576,154945151,309890301,619780601,1239561202,2479122404,4958244807,9916489614
%N Least integer k such that k/2^n > Euler's constant (0.577216...).
%H Clark Kimberling, <a href="/A293353/b293353.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = ceiling(r*2^n), where r = Euler's constant (0.577216...).
%F a(n) = A293352(n) + 1.
%t z = 120; r = EulerGamma;
%t Table[Floor[r*2^n], {n, 0, z}]; (* A293352 *)
%t Table[Ceiling[r*2^n], {n, 0, z}]; (* A293353 *)
%t Table[Round[r*2^n], {n, 0, z}]; (* A293354 *)
%o (PARI) for(n=0,50, print1(ceil(Euler*2^n), ", ")) \\ _G. C. Greubel_, Aug 29 2018
%o (Magma) R:= RealField(100); [Ceiling(EulerGamma(R)*2^n) : n in [0..50]]; // _G. C. Greubel_, Aug 29 2018
%Y Cf. A001620, A293352, A293354.
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Oct 07 2017
|