A325796 Numbers with at least as many divisors as the sum of their prime indices.

1, 2, 3, 4, 6, 8, 10, 12, 16, 18, 20, 24, 28, 30, 32, 36, 40, 42, 48, 54, 56, 60, 64, 66, 70, 72, 80, 84, 88, 90, 96, 100, 108, 112, 120, 126, 128, 132, 140, 144, 150, 156, 160, 162, 168, 176, 180, 192, 198, 200, 204, 208, 210, 216, 220, 224, 228, 234, 240

Offset: 1

Author

Gus Wiseman, May 23 2019

Keywords

• nonn

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798, with sum A056239(n).

Examples

			The sequence of terms together with their prime indices begins:
    1: {}
    2: {1}
    3: {2}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   10: {1,3}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   30: {1,2,3}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   40: {1,1,1,3}
   42: {1,2,4}
   48: {1,1,1,1,2}
   54: {1,2,2,2}
		

Crossrefs

Positions of nonnegative terms in A325794.

Heinz numbers of the partitions counted by A325832.

Cf. A000005, A002033, A056239, A112798, A299702.

Cf. A325694, A325780, A325781, A325792, A325793, A325795, A325797, A325798.

Programs

Mathematica

Select[Range[100],DivisorSigma[0,#]>=Total[Cases[FactorInteger[#],{p_,k_}:>PrimePi[p]*k]]&]