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 A351853 #8 Feb 23 2022 02:33:54 %S A351853 1,2,3,6,8,24,40,80,81,88,120,128,136,162,180,184,225,232,240,264,324, %T A351853 328,360,376,384,408,424,448,450,472,552,560,568,625,640,648,664,696, %U A351853 712,756,808,856,880,896,900,904,984,1040,1048,1096,1128,1192,1250,1272 %N A351853 Numbers that are divisible by the number of their divisors over the Eisenstein integers. %C A351853 Numbers k such that A319442(k) | k. %C A351853 All the odd terms are squares or numbers of the form 3 times a square. %H A351853 Amiram Eldar, <a href="/A351853/b351853.txt">Table of n, a(n) for n = 1..10000</a> %e A351853 6 is a term since it is divisible by A319442(6) = 6. %t A351853 f[p_, e_] := Switch[Mod[p, 3], 0, 2*e + 1, 1, (e + 1)^2, 2, e + 1]; eisNumDiv[1] = 1; eisNumDiv[n_] := Times @@ f @@@ FactorInteger[n]; q[n_] := Divisible[n, eisNumDiv[n]]; Select[Range[1000], q] %Y A351853 Cf. A033950, A048166, A319442, A351851. %K A351853 nonn %O A351853 1,2 %A A351853 _Amiram Eldar_, Feb 22 2022