A318472 - OEIS

%I #8 Aug 30 2018 08:34:38

%S 1,2,2,2,2,4,2,4,2,4,2,4,2,4,4,8,2,4,2,4,4,4,2,8,2,4,4,4,2,8,2,32,4,4,

%T 4,4,2,4,4,8,2,8,2,4,4,4,2,16,2,4,4,4,2,8,4,8,4,4,2,8,2,4,4,256,4,8,2,

%U 4,4,8,2,8,2,4,4,4,4,8,2,16,8,4,2,8,4,4,4,8,2,8,4,4,4,4,4,64,2,4,4,4,2,8,2,8,8

%N Multiplicative with a(p^e) = 2^A000045(e).

%H Antti Karttunen, <a href="/A318472/b318472.txt">Table of n, a(n) for n = 1..16384</a>

%H <a href="/index/Eu#epf">Index entries for sequences computed from exponents in factorization of n</a>

%F a(n) = 2^A318471(n).

%o (PARI) A318472(n) = factorback(apply(e -> 2^fibonacci(e),factor(n)[,2]));

%Y Cf. A000045, A318471, A318474.

%K nonn,mult

%O 1,2

%A _Antti Karttunen_, Aug 29 2018