|
| |
|
|
A081464
|
|
Fractional part of (3/2)^n decreases monotonically to zero.
|
|
21
| |
|
|
1, 2, 4, 29, 95, 153, 532, 613, 840, 2033, 2071, 3328, 12429, 112896, 129638, 371162, 1095666, 3890691, 4264691, 31685458, 61365215, 92432200, 144941960
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Do the values characterize 3/2? If not, what set do they characterize? - R. William Gosper (rwg(AT)osots.com), Jul 03 3008
The next term is greater than 3*10^8.
|
|
|
MATHEMATICA
| a = 1; Do[b = N[ Mod[(3/2)^n, 1]]; If[b < a, Print[n]; a = b], {n, 1, 10^6}]
|
|
|
PROG
| (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 * A067195 A080230 A084914
Adjacent sequences: A081461 A081462 A081463 * 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
a(16)-a(23) from Robert Gerbicz (robert.gerbicz(AT)gmail.com), Nov 21 2010
|
| |
|
|
