OFFSET
1,2
COMMENTS
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..300
EXAMPLE
a(9)=55 is a term because the sum of the aliquot divisors of 55 (which is a Fibonacci number), i.e., 1+5+11=17, is less than 55.
MATHEMATICA
DeficientQ[n_]:=DivisorSigma[1, n]<2n; a={}; Do[f=Fibonacci[n]; If[DeficientQ[f], AppendTo[a, f]], {n, 1, 10^2, 1}]; a (* Vladimir Joseph Stephan Orlovsky, Jul 25 2008 *)
Select[Fibonacci[Range[50]], DivisorSigma[1, #]<2#&] (* Harvey P. Dale, Apr 28 2012 *)
CROSSREFS
KEYWORD
base,hard,nonn
AUTHOR
Shyam Sunder Gupta, Sep 22 2002
STATUS
approved