login
Sum of the distinct prime factors of the Fibonacci number A050937(n).
3

%I #15 Oct 13 2024 07:08:07

%S 0,150,2974,2443,62158,55946694,2710261050,555008010,1547031,

%T 46165377746,95396546,92180471494910,1665088321801550,364125780,

%U 771601497990,518283023,8242065051309594,32530503217194,272602401466814027806,5568053048227732238014,85526725052226871

%N Sum of the distinct prime factors of the Fibonacci number A050937(n).

%H Amiram Eldar, <a href="/A135968/b135968.txt">Table of n, a(n) for n = 1..203</a>

%F a(n) = A008472(A050937(n)). - _R. J. Mathar_, Dec 12 2007

%e a(2) = 150 = 37+113 because A050937(2) = 4181 = 37*113.

%e a(3) = 2974 = 557 + 2417 because A050937(3) = 1346269 = 557*2417.

%t 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

%Y Cf. A000045, A001605, A008472, A050937, A075737, A090819, A134787, A134851, A134852, A135953, A135954, A135955, A135956, A135957, A135958, A135959, A135969.

%K nonn

%O 1,2

%A _Artur Jasinski_, Dec 09 2007

%E Edited by _R. J. Mathar_, Dec 12 2007

%E a(19)-a(21) from _Amiram Eldar_, Oct 13 2024