A139095 Fibonacci numbers whose sum of proper divisors is also a Fibonacci number.
1, 1, 2, 3, 5, 13, 89, 233, 1597, 28657, 514229, 433494437, 2971215073, 99194853094755497, 1066340417491710595814572169, 19134702400093278081449423917, 475420437734698220747368027166749382927701417016557193662268716376935476241
Offset: 1
Keywords
Programs
-
Maple
isA000045 := proc(n) local i,f ; for i from 0 do f := combinat[fibonacci](i) ; if f = n then RETURN(true) ; elif f > n then RETURN(false) ; fi ; od; end: A001065 := proc(n) numtheory[sigma](n)-n ; end: isA139095 := proc(n) RETURN( isA000045(n) and isA000045(A001065(n)) ) ; end: for i from 1 to 230 do if isA139095(combinat[fibonacci](i)) then printf("%d,", combinat[fibonacci](i)) ; fi ; od: # R. J. Mathar, May 22 2008
-
Mathematica
Fsum[n_]:=DivisorSigma[1,n]-n;Select[Fibonacci[Range[140]],IntegerQ[Sqrt[5*Fsum[#]^2 + 4]] || IntegerQ[Sqrt[5*Fsum[#]^2 - 4]]&] (* James C. McMahon, Jun 28 2025 *)
Extensions
More terms from R. J. Mathar, May 22 2008
Comments