|
|
A153662
|
|
Numbers k such that the fractional part of (3/2)^k is less than 1/k.
|
|
22
|
|
|
1, 2, 4, 7, 3328, 3329, 4097, 12429, 12430, 12431, 18587, 44257, 112896, 129638, 4264691, 144941960, 144941961, 144941962
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Numbers k such that fract((3/2)^k) < 1/k, where fract(x) = x-floor(x).
The next term is greater than 3*10^8.
|
|
LINKS
|
|
|
EXAMPLE
|
a(4) = 7 since fract((3/2)^7) = 0.0859375 < 1/7, but fract((3/2)^5) = 0.59375 >= 1/5 and fract((3/2)^6) = 0.390625 >= 1/6.
|
|
MATHEMATICA
|
Select[Range[1000], FractionalPart[(3/2)^#] < (1/#) &] (* G. C. Greubel, Aug 24 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|