|
Search: id:A081464
|
|
|
| A081464 |
|
Fractional part of (3/2)^n decreases monotonically to zero. |
|
+0
1
|
|
| 1, 2, 4, 29, 95, 153, 532, 613, 840, 2033, 2071, 3328, 12429, 112896, 129638
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Do the values characterize 3/2? If not, what set do they characterize? - R. William Gosper (rwg(AT)osots.com), Jul 03 3008
|
|
MATHEMATICA
|
a = 1; Do[b = N[ Mod[(3/2)^n, 1]]; If[b < a, Print[n]; a = b], {n, 1, 10^6}]
|
|
PROGRAM
|
(PARI) x=1; y=1; a(n)=if(n<0, 0, b=y+1; while(frac((3/2)^b)>frac((3/2)^x), b++); x=b; y=b; b)
|
|
CROSSREFS
|
Sequence in context: A124687 A018291 A033167 this_sequence A067195 A080230 A084914
Adjacent sequences: A081461 A081462 A081463 this_sequence A081465 A081466 A081467
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Benoit Cloitre (benoit7848c(AT)orange.fr), Apr 21 2003
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 22 2003
|
|
|
Search completed in 0.002 seconds
|
