A081464 Numbers k such that the fractional part of (3/2)^k decreases monotonically to zero.
1, 2, 4, 29, 95, 153, 532, 613, 840, 2033, 2071, 3328, 12429, 112896, 129638, 371162, 1095666, 3890691, 4264691, 31685458, 61365215, 92432200, 144941960
Offset: 1
Programs
-
Mathematica
a = 1; Do[b = N[ Mod[(3/2)^n, 1]]; If[b < a, Print[n]; a = b], {n, 1, 10^6}]
-
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)
Extensions
More terms from Robert G. Wilson v, Apr 22 2003
a(16)-a(23) from Robert Gerbicz, Nov 21 2010
Comments