A059545 Beatty sequence for log(10).
2, 4, 6, 9, 11, 13, 16, 18, 20, 23, 25, 27, 29, 32, 34, 36, 39, 41, 43, 46, 48, 50, 52, 55, 57, 59, 62, 64, 66, 69, 71, 73, 75, 78, 80, 82, 85, 87, 89, 92, 94, 96, 99, 101, 103, 105, 108, 110, 112, 115, 117, 119, 122, 124, 126, 128, 131, 133, 135, 138, 140, 142, 145, 147
Offset: 1
Links
- Harry J. Smith, Table of n, a(n) for n = 1..2000
- Aviezri S. Fraenkel, Jonathan Levitt, 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
Table[Floor[Log[10]n], {n, 1, 100}] (* Stefan Steinerberger, May 09 2006 *) -
PARI
{ default(realprecision, 100); b=log(10); for (n = 1, 2000, write("b059545.txt", n, " ", floor(n*b)); ) } \\ Harry J. Smith, Jun 28 2009
Formula
a(n) = floor(n*log(10)). - Stefan Steinerberger, May 09 2006