A135968 Sum of prime factors of the Fibonacci number A050937(n).

0, 150, 2974, 2443, 62158, 55946694, 2710261050, 555008010, 1547031, 46165377746, 95396546, 92180471494910, 1665088321801550, 364125780, 771601497990, 518283023, 8242065051309594, 32530503217194

Offset

1,2

Links

Table of n, a(n) for n=1..18.

Formula

a(n)=A008472(A050937(n)). - R. J. Mathar, Dec 12 2007

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.

Sequence in context: A088361 A206041 A151607 * A135969 A128963 A293097

Adjacent sequences: A135965 A135966 A135967 * A135969 A135970 A135971

Keyword

nonn

Author

Artur Jasinski, Dec 09 2007

Extensions

Edited by R. J. Mathar, Dec 12 2007

Status

approved