A382969 The excess of the n-th noncubefree number.
2, 3, 2, 2, 4, 2, 3, 2, 2, 5, 3, 3, 3, 2, 4, 2, 3, 3, 2, 2, 6, 2, 2, 4, 2, 4, 3, 2, 3, 2, 2, 5, 3, 3, 4, 4, 2, 3, 4, 2, 2, 7, 2, 2, 3, 2, 5, 2, 2, 3, 2, 5, 4, 2, 3, 2, 2, 2, 4, 3, 3, 2, 2, 2, 6, 3, 4, 3, 2, 4, 2, 5, 2, 5, 2, 2, 3, 2, 4, 4, 2, 3, 3, 3, 8, 2, 2
Offset: 1
Examples
a(1) = 2 since the 1st noncubefree number is A046099(1) = 8 = 2^3. It has 3 prime factors when counted with multiplicity, and 1 distinct prime factor, so a(1) = 3 - 1 = 2.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
f[n_] := Module[{e = FactorInteger[n][[;; , 2]]}, If[Max[e] < 3, Nothing, Total[e] - Length[e]]]; Array[f, 100]
-
PARI
list(lim) = {my(e); for(k = 2, lim, e = factor(k)[,2]; if(vecmax(e) > 2, print1(vecsum(e) - #e, ", ")));}
Comments