OFFSET
1,1
FORMULA
A081952(n) = F(a(n)), where F(k) is the k-th Fibonacci number.
EXAMPLE
A081952(4) = 1597 and 1597 is the 17th Fibonacci number, so a(4) = 17.
MATHEMATICA
f[n_, m_, 0] := n == 1; f[n_, m_, d_] := (b = False; l = Select[Divisors[n], #>=m&]; For[i = 1, i <= Length[l], i++, k = l[[i]]; If[f[n / k, k + 1, d - 1], b = True; Break[]]]; b); Do[x = 3; While[ !f[Fibonacci[x] - 1, 2, y], x++ ]; Print[x], {y, 1, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ryan Propper, Jul 22 2006
EXTENSIONS
a(24)-a(26) from Max Alekseyev, Apr 23 2010
a(27)-a(56) from Amiram Eldar, Jun 24 2023
STATUS
approved