A293353 Least integer k such that k/2^n > Euler's constant (0.577216...).

1, 2, 3, 5, 10, 19, 37, 74, 148, 296, 592, 1183, 2365, 4729, 9458, 18915, 37829, 75657, 151314, 302628, 605255, 1210509, 2421018, 4842036, 9684072, 19368144, 38736288, 77472576, 154945151, 309890301, 619780601, 1239561202, 2479122404, 4958244807, 9916489614

Offset

0,2

Links

Clark Kimberling, Table of n, a(n) for n = 0..1000

Formula

a(n) = ceiling(r*2^n), where r = Euler's constant (0.577216...).

a(n) = A293352(n) + 1.

Mathematica

z = 120; r = EulerGamma;
Table[Floor[r*2^n], {n, 0, z}];   (* A293352 *)
Table[Ceiling[r*2^n], {n, 0, z}]; (* A293353 *)
Table[Round[r*2^n], {n, 0, z}]; (* A293354 *)

Prog

(PARI) for(n=0, 50, print1(ceil(Euler*2^n), ", ")) \\ G. C. Greubel, Aug 29 2018
(Magma) R:= RealField(100); [Ceiling(EulerGamma(R)*2^n) : n in [0..50]]; // G. C. Greubel, Aug 29 2018

Crossrefs

Cf. A001620, A293352, A293354.

Sequence in context: A166874 A046630 A177874 * A293328 A064236 A339585

Adjacent sequences: A293350 A293351 A293352 * A293354 A293355 A293356

Keyword

nonn,easy

Author

Clark Kimberling, Oct 07 2017

Status

approved