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.

A325202 Number of times that A325177(n) occurs in the sum of proper unitary divisors function (A034460).

This page as a plain text file.
%I A325202 #19 Sep 07 2019 08:13:39
%S A325202 0,1,2,3,4,5,6,7,8,9,10,11,13,14,15,16,17,21,24,26,28,31,33,35,37,38,
%T A325202 45,49,56,60,63,64,65,72,73,81,83,94,100,105,121,138,145,149,169,175,
%U A325202 176,180,182,202,210,234,236,256,285,288,306,319,343,347,362,382
%N A325202 Number of times that A325177(n) occurs in the sum of proper unitary divisors function (A034460).
%C A325202 The unitary version of A238896.
%F A325202 a(n) = A324938(A325177(n)).
%t A325202 us[1] = 0; us[n_] := Times @@ (1 + Power @@@ FactorInteger[n]) - n;  m = 300; v = Table[0, {m}]; Do[u = us[k]; If[2 <= u <= m, v[[u]]++], {k, 1, m^2}]; s = {}; vm = -1; Do[If[v[[k]] > vm, vm = v[[k]]; AppendTo[s, vm]], {k, 2, m}]; s
%Y A325202 Cf. A034448, A034460, A063948, A238896, A324938, A325177.
%K A325202 nonn
%O A325202 1,3
%A A325202 _Amiram Eldar_, Sep 05 2019