A370785 Powerful numbers with an even number of prime factors (counted with multiplicity).
1, 4, 9, 16, 25, 36, 49, 64, 81, 100, 121, 144, 169, 196, 216, 225, 256, 289, 324, 361, 400, 441, 484, 529, 576, 625, 676, 729, 784, 841, 864, 900, 961, 1000, 1024, 1089, 1156, 1225, 1296, 1369, 1444, 1521, 1600, 1681, 1764, 1849, 1936, 1944, 2025, 2116, 2209
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]]}, n == 1 || AllTrue[e, # > 1 &] && EvenQ[Total[e]]]; Select[Range[2500], q]
-
PARI
is(n) = {my(e = factor(n)[, 2]); n == 1 || (vecmin(e) > 1 && !(vecsum(e)%2));}
Comments