OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..203
FORMULA
EXAMPLE
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 09 2007
EXTENSIONS
Edited by R. J. Mathar, Dec 12 2007
a(19)-a(21) from Amiram Eldar, Oct 13 2024
STATUS
approved