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 A103846 #9 Jun 11 2019 00:10:24 %S A103846 96,864,2160,5400,9600,6720,46080,94080,108864,191968,138240,345600, %T A103846 380160,482976,287280,806400,1016064,777600,1814400,3317760,3686400, %U A103846 3352320,5491200,5160960,3839400,5702400,4976640,7464960,7711200,8259840,10108800,12005760,10886400 %N A103846 Sum of the non-unitary divisors of A064115(n) (or of 1+A064115(n)). %H A103846 Amiram Eldar, <a href="/A103846/b103846.txt">Table of n, a(n) for n = 1..344</a> (calculated from the b-file at A064115 by Giovanni Resta) %e A103846 A103846(1)=96 is the sum of the non-unitary divisors of A064115(1)=188 and also of 1+A064115(1)=189: 2+94=96 and 3+9+21+63=96. %t A103846 nusigma[1]=0; nusigma[n_] := DivisorSigma[1,n] - Times @@ (1 + Power @@@ FactorInteger[n]); seq={}; s1=0; Do[s2=nusigma[n]; If[s1>0 && s2==s1, AppendTo[seq, s1]]; s1=s2, {n,1,10^6}]; seq (* _Amiram Eldar_, Jun 10 2019 *) %Y A103846 Cf. A048146, A064115. %K A103846 nonn %O A103846 1,1 %A A103846 _Emeric Deutsch_, Feb 17 2005 %E A103846 More terms from _Amiram Eldar_, Jun 10 2019