OFFSET
1,2
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.
PROG
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric M. Schmidt, Sep 17 2014
STATUS
approved