OFFSET
1,1
COMMENTS
A subsequence of A135968.
FORMULA
EXAMPLE
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
KEYWORD
nonn,changed
AUTHOR
Artur Jasinski, Dec 09 2007
EXTENSIONS
Definition clarified by R. J. Mathar, Nov 26 2008
a(16)-a(17) from Amiram Eldar, Oct 23 2024
STATUS
approved