%I #18 Sep 04 2023 02:01:53
%S 1,3,4,7,6,12,9,15,13,18,14,28,22,27,24,31,35,39,56,42,36,42,90,60,31,
%T 66,40,63,145,72,234,63,56,105,54,91,378,168,88,90,611,108,988,98,78,
%U 270,1598,124,73,93,140,154,2585,120,84,135,224,435,4182,168,6766,702
%N Inverse Möbius transform of A003965.
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>.
%F Multiplicative with a(p^e) = (q^(e+1)-1)/(q-1) where q = Fibonacci(pi(p)+1) = A000045(A000720(p)+2). - _David W. Wilson_, Sep 01 2001
%t f[p_, e_] := Module[{q = Fibonacci[PrimePi[p] + 2]}, (q^(e+1)-1)/(q-1)]; a[n_] := Times @@ f @@@ FactorInteger[n]; a[1] = 1; Array[a, 100] (* _Amiram Eldar_, Sep 04 2023 *)
%Y Cf. A000045, A000720, A003965.
%K nonn,easy,mult
%O 1,2
%A _Marc LeBrun_
%E More terms from _David W. Wilson_, Aug 29 2001