A351853 Numbers that are divisible by the number of their divisors over the Eisenstein integers.

1, 2, 3, 6, 8, 24, 40, 80, 81, 88, 120, 128, 136, 162, 180, 184, 225, 232, 240, 264, 324, 328, 360, 376, 384, 408, 424, 448, 450, 472, 552, 560, 568, 625, 640, 648, 664, 696, 712, 756, 808, 856, 880, 896, 900, 904, 984, 1040, 1048, 1096, 1128, 1192, 1250, 1272

Offset: 1

Author

Amiram Eldar, Feb 22 2022

Keywords

• nonn

Comments

Numbers k such that A319442(k) | k.

All the odd terms are squares or numbers of the form 3 times a square.

Examples

			6 is a term since it is divisible by A319442(6) = 6.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A033950, A048166, A319442, A351851.

Programs

Mathematica

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]