OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..56
FORMULA
EXAMPLE
a(3) = 2*3*9 + 1 = 55;
a(4) = 3*4*7*19 + 1 = 1597;
a(5) = 2*5*7*11*23 + 1 = 17711;
a(6) = 3*4*7*11*31*47 + 1 = 1346269;
a(7) = 3*4*5*11*29*41*211 + 1 = 165580141;
a(8) = 2*3*6*7*8*23*139*461 + 1 = 2971215073.
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[Fibonacci[x]], {y, 1, 50}] (* Ryan Propper, Jul 22 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 02 2003
EXTENSIONS
More terms from R. J. Mathar, Apr 13 2006
More terms from Ryan Propper, Jul 22 2006
Edited by Jon E. Schoenfield, Nov 18 2018
STATUS
approved