A135968 Sum of the distinct 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, 272602401466814027806, 5568053048227732238014, 85526725052226871
Offset: 1
Keywords
Examples
a(2) = 150 = 37+113 because A050937(2) = 4181 = 37*113. a(3) = 2974 = 557 + 2417 because A050937(3) = 1346269 = 557*2417.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..203
Crossrefs
Programs
-
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
Formula
Extensions
Edited by R. J. Mathar, Dec 12 2007
a(19)-a(21) from Amiram Eldar, Oct 13 2024