OFFSET
1,1
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
KEYWORD
nonn,more
AUTHOR
Ben Paul Thurston, Apr 20 2020
EXTENSIONS
a(8)-a(13) from Amiram Eldar, Jun 08 2020
a(14)-a(16) from Chai Wah Wu, Jul 02 2020
a(17)-a(20) from Bert Dobbelaere, Apr 25 2021
STATUS
approved