1,2

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

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

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 *)

Cf. A261865.

Sequence in context: A303905 A341904 A237638 * A334483 A261093 A306726

Adjacent sequences: A343200 A343203 A343204 * A343206 A343207 A343208

nonn

Peter Kagey, Apr 08 2021

approved