A382061 Numbers whose number of divisors is divisible by their number of unitary divisors.
1, 2, 3, 5, 6, 7, 8, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 24, 26, 27, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 46, 47, 51, 53, 54, 55, 56, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 72, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 88, 89, 91, 93, 94, 95, 96, 97
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
q[k_] := Divisible[DivisorSigma[0, k], 2^PrimeNu[k]]; Select[Range[100], q]
-
PARI
isok(k) = {my(f = factor(k)); !(numdiv(f) % (1<
Comments