A382063 Numbers whose number of coreful divisors is divisible by their number of exponential divisors.
1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79
Offset: 1
Examples
2 is a term since A005361(2) = A049419(2) = 2, so 2 | 2. 256 is a term since A005361(256) = 8, A049419(256) = 4, and 4 | 8.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
q[k_] := Module[{e = FactorInteger[k][[;;, 2]]}, Divisible[Times @@ e, Times @@ DivisorSigma[0, e]]]; Select[Range[100], # == 1 || q[#] &]
-
PARI
isok(k) = {my(e = factor(k)[, 2]); !(vecprod(e) % vecprod(apply(x -> numdiv(x), e)));}
Comments