|
|
A334264
|
|
Numbers k > 1 such that (3/2)^k sets a new record for closest fractional part to 1/2.
|
|
0
|
|
|
2, 3, 5, 9, 11, 69, 420, 2361, 12432, 21565, 28226, 128389, 274555, 497269, 836000, 1151341, 1973112, 2202332, 2458844, 5402520
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
off := 1; for i from 2 to 1000 do t := (1+1/2)^i-floor((1+1/2)^i); d := abs(1/2-t); if d < off then off := d; print(i) end if end do
|
|
MATHEMATICA
|
dm = 1; r = 3/2; s = {}; Do[r *= 3/2; If[(d = Abs[r - Floor[r] - 1/2]) < dm, dm = d; AppendTo[s, n + 1]], {n, 1, 10^7}]; s (* Amiram Eldar, Jun 08 2020 *)
|
|
CROSSREFS
|
A081464 is also related to (3/2) to a power being a record distance from a value of an integer.
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|