OFFSET
0,3
COMMENTS
LINKS
Hiroaki Yamanouchi, Table of n, a(n) for n = 0..50
EXAMPLE
a(3) = 5 because we obtain the 5 subsets {1}, {1/2}, {1/3}, {1,1/2} and {1/2, 1/3} having 5 sums with Fibonacci numerators: 1, 1, 1, 1+1/2 = 3/2 and 1/2+1/3 = 5/6 => the greatest Fibonacci number is 5.
MATHEMATICA
<<"DiscreteMath`Combinatorica`"; maxN=24; For[t={}; mx=0; i=0; n=0, n<=maxN, n++, While[i<2^n-1, i++; s=NthSubset[i, Range[n]]; k=Numerator[Plus@@(1/s)]; If[IntegerQ[Sqrt[5*k^2+4]]||IntegerQ[Sqrt[5*k^2-4]], If[k>mx, t=s]; mx=Max[mx, k]]]; Print[mx]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Mar 19 2015
EXTENSIONS
Corrected and extended by Alois P. Heinz, Mar 25 2015
a(30)-a(36) from Hiroaki Yamanouchi, Mar 30 2015
STATUS
approved