A038128 Beatty sequence for Euler's constant (A001620).

0, 0, 1, 1, 2, 2, 3, 4, 4, 5, 5, 6, 6, 7, 8, 8, 9, 9, 10, 10, 11, 12, 12, 13, 13, 14, 15, 15, 16, 16, 17, 17, 18, 19, 19, 20, 20, 21, 21, 22, 23, 23, 24, 24, 25, 25, 26, 27, 27, 28, 28, 29, 30, 30, 31, 31, 32, 32, 33, 34, 34, 35, 35, 36, 36, 37, 38, 38, 39, 39, 40, 40, 41, 42, 42, 43

Offset: 0

Author

Felice Russo

Keywords

• nonn
• easy

Links

• Karl V. Keller, Jr., Table of n, a(n) for n = 0..100000
• Index entries for sequences related to Beatty sequences

Programs

Magma

[Floor((n*EulerGamma(RealField(100)))) : n in [0..100]]; // Vincenzo Librandi, Aug 15 2015

Mathematica

Table[Floor[n*EulerGamma], {n, 0, 100}]

PARI

a(n) = floor(n*Euler); \\ Michel Marcus, Oct 24 2015

Formula

a(n) = floor(n*0.5772156649...). - Typo fixed by Karl V. Keller, Jr., Jul 27 2015

Extensions

More terms from Leah Frazee (s1166278(AT)Cedarville.edu)

a(0) term added by T. D. Noe, Mar 27 2011