Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A247431
The largest integer m such that A001950(m) < A003231(n).
1
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,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
Sequence in context: A367908 A032953 A270813 * A039033 A047333 A032796
KEYWORD
nonn
AUTHOR
Eric M. Schmidt, Sep 17 2014
STATUS
approved