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,2

Comments

Numbers k such that A319442(k) | k.

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

Links

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

Example

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

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]

Crossrefs

Cf. A033950, A048166, A319442, A351851.

Sequence in context: A355581 A093705 A281645 * A224211 A187026 A179221

Adjacent sequences: A351850 A351851 A351852 * A351854 A351855 A351856

Keyword

nonn

Author

Amiram Eldar, Feb 22 2022

Status

approved