login
A161468
Fibonacci numbers that are more abundant than any smaller Fibonacci number.
1
1, 2, 3, 5, 8, 21, 34, 55, 89, 144, 377, 610, 987, 1597, 2584, 6765, 10946, 17711, 28657, 46368, 196418, 317811, 514229, 832040, 2178309, 3524578, 5702887, 9227465, 14930352, 63245986, 102334155, 267914296, 701408733, 1134903170, 2971215073
OFFSET
1,2
LINKS
MATHEMATICA
lst={}; k=0; Do[p=Plus@@Divisors[f=Fibonacci[n]]; If[p>k, AppendTo[lst, f]; k=p], {n, 5!}]; lst
CROSSREFS
Sequence in context: A102016 A002363 A041457 * A229040 A143873 A273046
KEYWORD
nonn
AUTHOR
EXTENSIONS
Name corrected by T. D. Noe, Jul 06 2010
STATUS
approved