cp's OEIS Frontend

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.

A324938 a(n) = the number of values of m such that the sum of proper unitary divisors of m (A034460) is n.

This page as a plain text file.
%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