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 A101366 #11 Jun 05 2025 23:32:09
%S A101366 3,7,8,42,48,57,33,82,78,77,83,189,154,92,321,341,549,664,106,1034,
%T A101366 2929,4072,5049,3037,6957,7097,5051
%N A101366 Perfect Abs: Imaginary part of complex z such that Abs[(Total[Divisors[z]]-z)]=Abs[z].
%C A101366 Having Perfect Abs is not as good as being Perfect. A complex number can also have Abundant Abs or Deficient Abs.
%e A101366 The divisors for 269+92i are: 1, 2+I, 3+4i, 6+5i, 7+2i, 7+16i, 12+11i, 13+34i, 17+126i, 32+47i, 39+2i, 269+92i. The (sum - k) is 139+248i. Abs[139+248i] == Abs[269+92i]
%e A101366 The sequence of complex z's is: 5+3i, 3+7i, 19+8i, 15+42i, 6+57i, 29+48i, 19+82i, 74+33i, 111+78i, 147+77i, 185+83i, 91+189i, 197+154i, 269+92i, 122+321i, 159+341i, 72+549i, ...
%t A101366 Im[Sort[Select[Flatten[Table[a + b I, {a, 1, 500}, {b, 1, 500}]], Abs[Total[Divisors[ # ]] - # ] == Abs[ # ] &], Abs[ #1] < Abs[ #2] &]]
%Y A101366 Cf. A101367, A102526, A102531, A102532.
%K A101366 nonn,more
%O A101366 0,1
%A A101366 _Ed Pegg Jr_, Jan 13 2005
%E A101366 Ten more terms from _Hans Havermann_, Jan 15 2005