|
| |
|
|
A054414
|
|
If theta = ln(2)/ln(3) then a(n) = 1 + Floor(n/(1-theta))
|
|
1
| |
|
|
1, 3, 6, 9, 11, 14, 17, 19, 22, 25, 28, 30, 33, 36, 38, 41, 44, 47, 49, 52, 55, 57, 60, 63, 66, 68, 71, 74, 76, 79, 82, 84, 87, 90, 93, 95, 98, 101, 103, 106, 109, 112, 114, 117, 120, 122, 125, 128, 131, 133, 136, 139, 141, 144, 147, 150, 152, 155, 158, 160, 163
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| These numbers appear in connection with the 3x+1 problem.
Also, numbers n such that the first digit in ternary expansion on 2^n is 2. Sloane conjectured that, for any integer n >=15, 2^n always has a 0 in its ternary expansion. - Mohammed Bouayoun (Mohammed.bouayoun(AT)sanef.com), Apr 24 2006
|
|
|
EXAMPLE
| a(5) = 1 + floor(5/(1-theta))= 1 + floor(5/0.3690702464)= 1 + floor(13,54..) = 14
|
|
|
MAPLE
| Digits := 500: it := evalf(ln(2)/ln(3)): for n from 0 to 200 do printf(`%d, `, 1+floor(n/(1-it))) od:
|
|
|
MATHEMATICA
| Do[If[First[IntegerDigits[2^n, 3]] == 2, Print[n]], {n, 1, 200}] - Mohammed Bouayoun (Mohammed.bouayoun(AT)sanef.com), Apr 24 2006
|
|
|
CROSSREFS
| Sequence in context: A154777 A094740 A047400 * A136616 A121384 A151926
Adjacent sequences: A054411 A054412 A054413 * A054415 A054416 A054417
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| B.Schaaf (m.m.schaaf-visch(AT)wxs.nl), May 20 2000
|
|
|
EXTENSIONS
| More terms from James A. Sellers (sellersj(AT)math.psu.edu), May 23 2000
Erroneous formula a(n) =? A083088(n) + n - 1 deleted Jan 30 2008
|
| |
|
|
