A343205 a(n) is the unique positive integer m such that n < m*sqrt(A261865(n)) < n + 1.

1, 2, 2, 3, 4, 4, 5, 6, 7, 6, 8, 9, 8, 10, 11, 12, 10, 13, 14, 12, 15, 16, 9, 17, 18, 19, 16, 20, 21, 8, 22, 23, 24, 20, 25, 26, 14, 27, 28, 18, 29, 30, 31, 20, 32, 33, 18, 34, 35, 36, 30, 37, 38, 15, 39, 40, 41, 34, 42, 43, 25, 44, 45, 37, 46, 47, 48, 28, 49

Offset

1,2

Links

Peter Kagey, Table of n, a(n) for n = 1..10000

Example

For n = 23, a(23) = 9 because A261865(n) = 7 and 23 < 9*sqrt(7) < 24.

Mathematica

A343205[n_] := (k = 2;
  While[Ceiling[Sqrt[(n + 1)^2/k]] - Floor[Sqrt[n^2/k]] < 2, k++];
  Ceiling[n/Sqrt[k]]) (* Based on Michael De Vlieger's A261865 program *)

Crossrefs

Cf. A261865.

Sequence in context: A303905 A341904 A237638 * A334483 A261093 A306726

Adjacent sequences: A343202 A343203 A343204 * A343206 A343207 A343208

Keyword

nonn

Author

Peter Kagey, Apr 08 2021

Status

approved