A059550 Beatty sequence for 1 + log(10).

3, 6, 9, 13, 16, 19, 23, 26, 29, 33, 36, 39, 42, 46, 49, 52, 56, 59, 62, 66, 69, 72, 75, 79, 82, 85, 89, 92, 95, 99, 102, 105, 108, 112, 115, 118, 122, 125, 128, 132, 135, 138, 142, 145, 148, 151, 155, 158, 161, 165, 168, 171, 175, 178, 181, 184, 188, 191, 194, 198, 201, 204, 208, 211, 214, 217, 221, 224, 227, 231, 234, 237, 241, 244, 247, 250, 254, 257

Offset: 1

Author

Mitch Harris, Jan 22 2001

Keywords

• nonn
• easy

Links

• Harry J. Smith, Table of n, a(n) for n = 1..2000
• Aviezri S. Fraenkel, Jonathan Levitt and Michael Shimshoni, Characterization of the set of values f(n)=[n alpha], n=1,2,..., Discrete Math. 2 (1972), no.4, 335-345.
• Eric Weisstein's World of Mathematics, Beatty Sequence
• Index entries for sequences related to Beatty sequences

Crossrefs

Beatty complement is A059549. Differs from A080081 at 76th term.

Cf. A002392.

Programs

Mathematica

Floor[Range[100]*(1 + Log[10])] (* Paolo Xausa, Jul 05 2024 *)

PARI

{ default(realprecision, 100); b=1 + log(10); for (n = 1, 2000, write("b059550.txt", n, " ", floor(n*b)); ) } \\ Harry J. Smith, Jun 28 2009

Formula

a(n) = floor(n*(1 + A002392)). - Paolo Xausa, Jul 05 2024