A247240 Numbers such that A059248(k), the numerator of Sum_{i=1..k} 1/Fibonacci(i), is not equal to A250744(k), the denominator of the harmonic mean of the first k positive Fibonacci numbers.
2, 7, 35, 245, 485, 12914
Offset: 1
Programs
-
Mathematica
s=0; lst={}; Do[s+=1/Fibonacci[n]; If[Numerator[s]!=Denominator[n/s], AppendTo[lst, n]], {n, 10000}]; lst (* Jinyuan Wang, Feb 14 2020 *)
Extensions
a(6) from Jinyuan Wang, Feb 14 2020
Comments