%I A113222
%S A113222 0,1,2,3,5,3,13,21,34,6,89,5,233,14,7,987,1597,35,4181,8,15,90,28657,23,
%T A113222 75025,234,196418,16,514229,8,1346269,2178309,91,1598,18,37,24157817,
%U A113222 4182,235,26,165580141,16,433494437,92,39,28658,2971215073,989
%N A113222 a(n) = sum{p=primes, p|n} F(p^(m_{n,p})), where p^(m_{n,p}) is highest 
               power of p dividing n, m= nonnegative integer and F(k) is the k-th 
               Fibonacci number.
%H A113222 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%F A113222 Additive with a(p^e) = F(p^e).
%e A113222 12 = 2^2 * 3^1. So a(12) = F(2^2) + F(3^1) = 3 + 2 = 5.
%t A113222 f[n_] := Plus @@ (Fibonacci[ #[[1]]^#[[2]]] & /@ FactorInteger[n]); Table[ 
               f[n], {n, 49}] (* Robert G. Wilson v *)
%Y A113222 Cf. A113195.
%Y A113222 Sequence in context: A125677 A051358 A107473 this_sequence A060444 A152814 
               A021981
%Y A113222 Adjacent sequences: A113219 A113220 A113221 this_sequence A113223 A113224 
               A113225
%K A113222 nonn
%O A113222 1,3
%A A113222 Leroy Quet Oct 18 2005
%E A113222 More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Oct 21 2005