A305055 Numbers n such that the z-density of the integer partition with Heinz number n is 0.
1, 169, 481, 507, 793, 841, 845, 1157, 1183, 1369, 1443, 1469, 1521, 1849, 1963, 2059, 2209, 2257, 2353, 2379, 2405, 2523, 2535, 2899, 3211, 3263, 3277, 3293, 3367, 3471, 3549, 3653, 3721, 3887, 3965, 4107, 4121, 4181, 4225, 4329, 4394, 4407, 4563, 4601, 4667
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
zens[n_]:=If[n==1,0,Total@Cases[FactorInteger[n],{p_,k_}:>k*(PrimeNu[PrimePi[p]]-1)]-PrimeNu[LCM@@Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]]]]; Select[Range[1000],zens[#]==0&]
Comments