OFFSET
1,6
COMMENTS
EXAMPLE
The prime indices of 462 are {1,2,4,5}, with maximal anti-runs ((1),(2,4),(5)), so a(462) = 3.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Table[Length[Split[prix[n], #2!=#1+1&]], {n, 100}]
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 22 2025
STATUS
approved
