|
| |
|
|
A064679
|
|
A Beatty sequence for 10*i^i.
|
|
2
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), 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 (rgwv(AT)rgwv.com), Oct 16 2001
|
| |
|
|
