A064679 A Beatty sequence for 10*i^i.

1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 105, 107, 109, 111, 113, 115, 117, 119, 121, 123, 125, 127

Offset

1,2

Comments

ii = 10Chop[ N[ I^I, 24], 10^-30]; Table[ Floor[ n*ii/(ii - 1) ], {n, 1, 70} ]

Links

Harry J. Smith, Table of n, a(n) for n = 1..2000

Prog

(PARI) { default(realprecision, 100); ii=10*real(I^I); b=ii/(ii - 1); for (n = 1, 2000, write("b064679.txt", n, " ", floor(n*b)) ) } \\ Harry J. Smith, Sep 22 2009

Crossrefs

Cf. A064676.

Sequence in context: A059533 A189397 A172100 * A081874 A165747 A053229

Adjacent sequences: A064676 A064677 A064678 * A064680 A064681 A064682

Keyword

easy,nonn

Author

Robert G. Wilson v, Oct 16 2001

Status

approved