A370788 Cubefull numbers with an odd number of prime factors (counted with multiplicity).
8, 27, 32, 125, 128, 243, 343, 432, 512, 648, 1331, 1728, 2000, 2048, 2187, 2197, 2592, 3125, 3888, 4913, 5000, 5488, 5832, 6859, 6912, 8000, 8192, 10125, 10368, 12167, 15552, 16807, 16875, 19208, 19683, 20000, 21296, 21952, 23328, 24389, 27000, 27648, 27783, 29791
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, # > 2 &] && OddQ[Total[e]]]; Select[Range[30000], q]
-
PARI
is(n) = {my(e = factor(n)[, 2]); n > 1 && vecmin(e) > 2 && vecsum(e)%2;}
Comments