A247431 The largest integer m such that A001950(m) < A003231(n).

1, 2, 3, 5, 6, 8, 9, 10, 12, 13, 14, 16, 17, 19, 20, 21, 23, 24, 25, 27, 28, 30, 31, 32, 34, 35, 37, 38, 39, 41, 42, 43, 45, 46, 48, 49, 50, 52, 53, 55, 56, 57, 59, 60, 61, 63, 64, 66, 67, 68, 70, 71, 72, 74, 75, 77, 78, 79, 81, 82, 84, 85, 86, 88, 89, 90, 92

Offset: 1

Author

Eric M. Schmidt, Sep 17 2014

Keywords

• nonn

Comments

This is the function named K in [Carlitz].

Links

• L. Carlitz, R. Scoville, and T. Vaughan, Some arithmetic functions related to Fibonacci numbers, Fib. Quart., 11 (1973), 337-386.

Crossrefs

Cf. A001950, A003231.

Programs

PARI

a31(n) = (5*n+sqrtint(5*n^2))\2; \\ A003231
a50(n) = (sqrtint(n^2*5)+n*3)\2; \\ A001950
a(n) = my(m=1, N=a31(n)); while(a50(m) < N, m++); m-1; \\ Michel Marcus, Nov 14 2023