A357879 Number of divisors of n with the same sum of prime indices as their quotient. Central column of A321144, taking gaps as 0's.

1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 0

Offset

1,12

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.

Links

Table of n, a(n) for n=1..87.

Example

The a(3600) = 5 divisors, their prime indices, and the prime indices of their quotients:
  45: {2,2,3} * {1,1,1,1,3}
  50: {1,3,3} * {1,1,1,2,2}
  60: {1,1,2,3} * {1,1,2,3}
  72: {1,1,1,2,2} * {1,3,3}
  80: {1,1,1,1,3} * {2,2,3}

Mathematica

sumprix[n_]:=Total[Cases[FactorInteger[n], {p_, k_}:>k*PrimePi[p]]];
Table[Length[Select[Divisors[n], sumprix[#]==sumprix[n]/2&]], {n, 100}]

Crossrefs

Positions of nonzero terms are A357976, counted by A002219.

A001222 counts prime factors, distinct A001221.

A056239 adds up prime indices, row sums of A112798.

Cf. A033879, A033880, A064914, A181819, A213074, A235130, A237258, A276107, A300061, A321144, A357975.

Sequence in context: A319581 A331302 A062977 * A072325 A294929 A076948

Adjacent sequences: A357876 A357877 A357878 * A357880 A357881 A357882

Keyword

nonn

Author

Gus Wiseman, Oct 27 2022

Status

approved