This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A324938 #37 Sep 06 2019 02:01:02 %S A324938 0,0,0,0,1,0,2,1,2,1,3,1,3,2,3,3,2,2,3,3,4,3,2,3,3,3,4,4,3,3,3,5,4,5, %T A324938 4,5,2,4,4,5,4,5,3,5,5,5,2,6,3,6,4,6,3,7,3,6,4,5,3,7,3,5,4,6,2,8,2,6, %U A324938 5,7,2,8,4,6,7,7,4,9,2,7,4,5,4,9,3,9 %N A324938 a(n) = the number of values of m such that the sum of proper unitary divisors of m (A034460) is n. %C A324938 The unitary version of A048138. %C A324938 The offset is 2 as in A048138 since there are infinitely many numbers (all the powers of primes) for which A034460 = 1. %H A324938 Amiram Eldar, <a href="/A324938/b324938.txt">Table of n, a(n) for n = 2..10000</a> %F A324938 a(A063948(n)) = 0. %e A324938 a(8) = 2 since 8 is the sum of the proper unitary divisors of 10 (1 + 2 + 5) and 12 (1 + 3 + 4). %t A324938 us[1] = 0; us[n_] := Times @@ (1 + Power @@@ FactorInteger[n]) - n; m = 100; v = Table[0, {m}]; Do[u = us[k]; If[2 <= u <= m, v[[u]]++], {k, 1, m^2}]; Rest @ v %Y A324938 Cf. A034448, A034460, A048138, A063948. %K A324938 nonn %O A324938 2,7 %A A324938 _Amiram Eldar_, Sep 05 2019