OFFSET
1,7
COMMENTS
EXAMPLE
The prime indices of 13439 are {24,36}, with greatest common divisor 12, with prime indices {1,1,2}, so a(13439) = 3.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[If[n==1, 0, PrimeOmega[GCD@@prix[n]]], {n, 100}]
CROSSREFS
For all divisors instead of just prime factors we have A387114.
For LCM (or product) instead of GCD we have A387879.
A000005 counts divisors.
A001414 adds up distinct prime divisors.
A003963 multiplies together prime indices.
A120383 lists numbers divisible by all of their prime indices.
A289508 gives greatest common divisor of prime indices.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 11 2025
STATUS
approved
