A124438 Numbers that are not divisible by at least one of the (positive) exponents in their prime factorization.
8, 9, 25, 32, 40, 45, 49, 56, 63, 64, 75, 81, 88, 96, 99, 104, 117, 121, 125, 128, 136, 147, 152, 153, 162, 169, 171, 175, 184, 200, 207, 224, 225, 232, 243, 245, 248, 250, 261, 275, 279, 280, 288, 289, 296, 315, 320, 325, 328, 333, 343, 344, 352
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A124184.
Programs
-
Mathematica
Select[Range[400],MemberQ[Divisible[#,FactorInteger[#][[All,2]]],False]&] (* Harvey P. Dale, Mar 25 2018 *)
Comments