A135969 - OEIS

%I #16 Oct 23 2024 16:33:35

%S 150,2974,62158,55946694,2710261050,555008010,46165377746,95396546,

%T 92180471494910,1665088321801550,771601497990,8242065051309594,

%U 32530503217194,272602401466814027806,5568053048227732238014,2811666624525811646469921614,1966344318693363713266514

%N Sum of the prime factors of A135953(n).

%C A subsequence of A135968.

%F a(n) = A008472(A135953(n)). - _R. J. Mathar_, Nov 26 2008

%e a(1) = 150 = 37+113 because A135953(1) = 4181 = 37*113.

%e a(2) = 2974 = 557+2417 because A135953(2) = 1346269 = 557*2417.

%t k = {}; Do[If[ ! PrimeQ[Fibonacci[Prime[n]]], b = FactorInteger[Fibonacci[Prime[n]]]; c = Length[FactorInteger[b]]; If[c == 2, d = b[[1]][[1]] + b[[2]][[1]]; AppendTo[k, d]]], {n, 1, 50}]; k

%t Total[Transpose[FactorInteger[#]][[1]]]&/@Select[Fibonacci[Prime[ Range[50]]], PrimeOmega[#]==2&] (* _Harvey P. Dale_, Feb 18 2012 *)

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

%K nonn

%O 1,1

%A _Artur Jasinski_, Dec 09 2007

%E Definition clarified by _R. J. Mathar_, Nov 26 2008

%E a(16)-a(17) from _Amiram Eldar_, Oct 23 2024