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.

A344102 Numbers k with at least two divisors d for which sigma(k) = d*sigma(d).

This page as a plain text file.
%I A344102 #9 Sep 08 2022 08:46:26
%S A344102 16380,290160,475020,1372140,4754880,5284356,5624892,7033572,8414640,
%T A344102 10322676,12203100,12724908,16435692,16655184,24306480,35675640,
%U A344102 36203076,39792060,43266132,49758720,55040076,68229252,70142436,74662476,76527360,77084280,82833660
%N A344102 Numbers k with at least two divisors d for which sigma(k) = d*sigma(d).
%e A344102 sigma(16380) = 156*sigma(156) = 182*sigma(182).
%e A344102 sigma(16655184) = 4368*sigma(4368) = 4836*sigma(4836) = 5642*sigma(5642).
%t A344102 Select[Range[1.5*10^6], Count[(d = Divisors[#]) * DivisorSigma[1, d], DivisorSigma[1, #]] > 1 &] (* _Amiram Eldar_, May 12 2021 *)
%o A344102 (Magma) s:=func<n|{d:d in Divisors(n)|DivisorSigma(1, n) eq DivisorSigma(1, d)*d}>;  [n: n in [1..1000000]|#s(n) ge 2];
%Y A344102 Cf. A000203, A339472, A344103.
%K A344102 nonn
%O A344102 1,1
%A A344102 _Marius A. Burtea_, May 10 2021