%I #8 Apr 09 2024 08:10:03
%S 1,2,2,3,2,2,4,3,2,2,5,2,2,2,3,4,2,2,6,2,2,2,2,3,2,2,2,7,2,2,2,2,5,2,
%T 2,2,2,2,2,2,2,3,4,2,8,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
%U 6,2,9,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,4,2,2,2,2,3,2,2,2,2,2,2,2,2,2
%N Number of divisors of prime powers: tau(p^e).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DivisorFunction.html">Divisor Function</a>.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimePower.html">Prime Power</a>.
%F a(n) = A000005(A000961(n)).
%F a(n) = e+1 for A000961(n) = p^e.
%F a(n) = A025474(n) + 1.
%t f[n_] := Module[{f = FactorInteger[n]}, If[Length[f] == 1, f[[1, 2]] + 1, Nothing]]; f[1] = 1; Array[f, 400] (* _Amiram Eldar_, Apr 09 2024 *)
%Y Cf. A000005, A000961, A025474, A086455.
%K nonn,changed
%O 1,2
%A _Reinhard Zumkeller_, Jul 20 2003
|