A293352 Greatest integer k such that k/2^n < Euler's constant (0.577216...).

0, 1, 2, 4, 9, 18, 36, 73, 147, 295, 591, 1182, 2364, 4728, 9457, 18914, 37828, 75656, 151313, 302627, 605254, 1210508, 2421017, 4842035, 9684071, 19368143, 38736287, 77472575, 154945150, 309890300, 619780600, 1239561201, 2479122403, 4958244806, 9916489613

Offset

0,3

Links

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

Formula

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

a(n) = A293353(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(floor(Euler*2^n), ", ")) \\ G. C. Greubel, Aug 29 2018
(Magma) R:= RealField(100); [Floor(EulerGamma(R)*2^n) : n in [0..50]]; // G. C. Greubel, Aug 29 2018

Crossrefs

Cf. A001620, A293353, A293354.

Sequence in context: A145139 A033138 A155803 * A293327 A282909 A282825

Adjacent sequences: A293349 A293350 A293351 * A293353 A293354 A293355

Keyword

nonn,easy

Author

Clark Kimberling, Oct 07 2017

Status

approved