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.

0, 1, 2, 3, 5, 3, 13, 21, 34, 6, 89, 5, 233, 14, 7, 987, 1597, 35, 4181, 8, 15, 90, 28657, 23, 75025, 234, 196418, 16, 514229, 8, 1346269, 2178309, 91, 1598, 18, 37, 24157817, 4182, 235, 26, 165580141, 16, 433494437, 92, 39, 28658, 2971215073, 989

Offset

1,3

Links

Table of n, a(n) for n=1..48.

Formula

Additive with a(p^e) = F(p^e).

Example

12 = 2^2 * 3^1. So a(12) = F(2^2) + F(3^1) = 3 + 2 = 5.

Mathematica

f[n_] := Plus @@ (Fibonacci[ #[[1]]^#[[2]]] & /@ FactorInteger[n]); Table[ f[n], {n, 49}] (* Robert G. Wilson v *)

Crossrefs

Cf. A113195.

Sequence in context: A272202 A244609 A209195 * A366671 A060444 A002587

Adjacent sequences: A113219 A113220 A113221 * A113223 A113224 A113225

Keyword

nonn

Author

Leroy Quet, Oct 18 2005

Extensions

More terms from Robert G. Wilson v, Oct 21 2005

Status

approved