|
|
A135968
|
|
Sum of prime factors of the Fibonacci number A050937(n).
|
|
2
|
|
|
0, 150, 2974, 2443, 62158, 55946694, 2710261050, 555008010, 1547031, 46165377746, 95396546, 92180471494910, 1665088321801550, 364125780, 771601497990, 518283023, 8242065051309594, 32530503217194
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(2)=150=37+113 because A050937(2)=4181=37*113.
a(3)=2974=557+2417 because A050937(3)=1346269=557*2417.
|
|
MATHEMATICA
|
k = {}; Do[If[ ! PrimeQ[Fibonacci[Prime[n]]], b = FactorInteger[Fibonacci[Prime[n]]]; c =Length[FactorInteger[b]]; d = 0; Do[d = d + b[[r]][[1]], {r, 1, c}]; AppendTo[k, d]], {n, 1, 50}]; k
|
|
CROSSREFS
|
Cf. A000045, A001605, A050937, A075737, A090819, A134787, A134851, A134852, A135953, A135954, A135955, A135956, A135957, A135958, A135959, A135969.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|