|
|
A135969
|
|
Sum of the prime factors of A135953(n).
|
|
2
|
|
|
150, 2974, 62158, 55946694, 2710261050, 555008010, 46165377746, 95396546, 92180471494910, 1665088321801550, 771601497990, 8242065051309594, 32530503217194, 272602401466814027806, 5568053048227732238014
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(1)=150=37+113 because A135953(1)=4181=37*113.
a(2)=2974=557+2417 because A135953(2)=1346269=557*2417.
|
|
MATHEMATICA
|
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
Total[Transpose[FactorInteger[#]][[1]]]&/@Select[Fibonacci[Prime[ Range[50]]], PrimeOmega[#]==2&] (* Harvey P. Dale, Feb 18 2012 *)
|
|
CROSSREFS
|
Cf. A000045, A001605, A050937, A075737, A090819, A134787, A134851, A134852, A135953, A135954, A135955, A135956, A135957, A135958, A135959, A135968.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition clarified. Equivalent formula added. - R. J. Mathar, Nov 26 2008
|
|
STATUS
|
approved
|
|
|
|