%I #24 Jul 04 2024 03:35:09
%S 1,2,3,3,4,4,6,6,5,4,8,5,5,7,7,4,8,3,11,9,8,6,12,11,8,9,11,9,14,4,12,
%T 8,13,10,18,9,8,10,15,7,16,6,14,17,8,5,18,17,13,14,17,7,15,10,18,8,10,
%U 5,26,7,9,14,19,14,17,9,15,11,19,7,29,12,7,11,19,12,21,8,22,25,6,6,26,16,9,15,21,8,26,11,15,13,11,11,25,8,12,14,26
%N Number of distinct prime factors of n^n-1.
%H Amiram Eldar, <a href="/A344870/b344870.txt">Table of n, a(n) for n = 2..138</a>
%H factordb, <a href="http://factordb.com/index.php?query=n%5En-1&use=n&perpage=20&format=1&sent=1&PR=1&PRP=1&C=1&CF=1&U=1&FF=1&VP=1&EV=1&OD=1&VC=1&n=80">Factors of n^n-1</a>.
%F a(n) = A001221(A048861(n)).
%t a[n_] := PrimeNu[n^n - 1]; Array[a, 45, 2] (* _Amiram Eldar_, Jun 01 2021 *)
%o (PARI) a(n) = omega(n^n-1);
%o (Magma) [#PrimeDivisors(n^n-1): n in [2..100]];
%Y Cf. A001221, A048861, A309941, A334167, A344869.
%K nonn
%O 2,2
%A _Seiichi Manyama_, May 31 2021