A334264 Numbers k > 1 such that (3/2)^k sets a new record for closest fractional part to 1/2.

2, 3, 5, 9, 11, 69, 420, 2361, 12432, 21565, 28226, 128389, 274555, 497269, 836000, 1151341, 1973112, 2202332, 2458844, 5402520

Offset

1,1

Links

Table of n, a(n) for n=1..20.

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.

Cf. A002379, A034082, A179523.

Sequence in context: A317786 A019276 A097683 * A141403 A124204 A161412

Adjacent sequences: A334261 A334262 A334263 * A334265 A334266 A334267

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