cp's OEIS Frontend

A281188 Number of refactorable numbers m such that tau(m) = n, or 0 if there are infinitely many such numbers.

%I A281188 #103 Feb 09 2017 02:40:31
%S A281188 1,1,1,1,1,2,1,0,0,2,1,0,1,2,2,0,1,0,1,0,2,2,1,0,0,2,0,0,1,6,1,0,2,2,
%T A281188 2,0,1,2,2,0,1,6,1,0,0,2,1,0,0,0,2,0,1,0,2,0,2,2,1,0,1,2,0,0,2,6,1,0,
%U A281188 2,6,1,0,1,2,0,0,2,6,1,0,0,2,1,0,2,2,2,0,1,0,2,0,2,2,2,0,1,0,0,0
%N A281188 Number of refactorable numbers m such that tau(m) = n, or 0 if there are infinitely many such numbers.
%C A281188 An integer n is a refactorable number if and only if tau(n) (A000005) divides n.
%C A281188 Every number is tau(m) for some refactorable m.
%C A281188 If n is squarefree with k prime divisors, then a(n) = k! (for a proof, see the Links entry from the author).
%C A281188 Conjecture: a(n) is nonzero if and only if n is squarefree or n = 4. [This conjecture is true; see Links for a proof. - _Jon E. Schoenfield_ and _Altug Alkan_, Jan 17 2017]
%C A281188 See also Theorem 5 for the proof of conjecture in Colton link. - _Altug Alkan_, Jan 20 2017
%H A281188 Altug Alkan, <a href="/A281188/b281188.txt">Table of n, a(n) for n = 1..10000</a>
%H A281188 Franklin T. Adams-Watters, <a href="/A281188/a281188.txt">Refactorable numbers with tau squarefree</a>
%H A281188 S. Colton, <a href="https://cs.uwaterloo.ca/journals/JIS/colton/joisol.html">Refactorable Numbers - A Machine Invention</a>, J. Integer Sequences, Vol. 2, 1999.
%H A281188 Jon E. Schoenfield and Altug Alkan, <a href="/A281188/a281188_1.txt">Refactorable numbers with tau nonsquarefree</a>
%e A281188 If n is prime, the only refactorable number m with tau(m) = n is n^(n-1), so a(n) = 1 for n prime.
%e A281188 Any number n of the form 8p, p a prime not equal to 2, has tau(n) = 8, and thus n is refactorable. Hence a(8) = 0.
%t A281188 k = 1; t[_] = 0; t[4] = 1; While[k < 100000001, m = DivisorSigma[0, k]; If[ Mod[k, m] == 0 && SquareFreeQ@ m, t[m]++]; k++]; t@# & /@ Range@20 (* _Robert G. Wilson v_, Jan 16 2017 *)
%o A281188 (PARI) a(n) = if(n==4, 1, if(issquarefree(n) == 1, omega(n)!, 0)); \\ _Altug Alkan_, Jan 18 2017
%Y A281188 Cf. A000005, A033950, A039819.
%K A281188 nonn,easy
%O A281188 1,6
%A A281188 _Franklin T. Adams-Watters_, Jan 16 2017
%E A281188 More terms from _Altug Alkan_, Jan 17 2017