A370786 Powerful numbers with an odd number of prime factors (counted with multiplicity).
8, 27, 32, 72, 108, 125, 128, 200, 243, 288, 343, 392, 432, 500, 512, 648, 675, 800, 968, 972, 1125, 1152, 1323, 1331, 1352, 1372, 1568, 1728, 1800, 2000, 2048, 2187, 2197, 2312, 2592, 2700, 2888, 3087, 3125, 3200, 3267, 3528, 3872, 3888, 4232, 4500, 4563, 4608
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Rafael Jakimczuk, Arithmetical Functions over the Powerful Part of an Integer, ResearchGate, 2024.
Crossrefs
Programs
-
Mathematica
q[n_] := Module[{e = FactorInteger[n][[;; , 2]]}, AllTrue[e, # > 1 &] && OddQ[Total[e]]]; Select[Range[2500], q]
-
PARI
is(n) = {my(e = factor(n)[, 2]); n > 1 && vecmin(e) > 1 && vecsum(e)%2;}
Comments