A059568 Beatty sequence for 1 - 1/log(log(2)).
3, 7, 11, 14, 18, 22, 26, 29, 33, 37, 41, 44, 48, 52, 55, 59, 63, 67, 70, 74, 78, 82, 85, 89, 93, 96, 100, 104, 108, 111, 115, 119, 123, 126, 130, 134, 137, 141, 145, 149, 152, 156, 160, 164, 167, 171, 175, 178, 182, 186, 190, 193, 197, 201, 205, 208, 212, 216
Offset: 1
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
Programs
-
Mathematica
Floor[Range[100]*(1 - 1/Log[Log[2]])] (* Paolo Xausa, Jul 05 2024 *)
-
PARI
{ default(realprecision, 100); b=1 - 1/log(log(2)); for (n = 1, 2000, write("b059568.txt", n, " ", floor(n*b)); ) } \\ Harry J. Smith, Jun 28 2009
Formula
a(n) = floor(n*(1 - 1/log(log(2)))). - Michel Marcus, Jan 04 2015