OFFSET
0,1
COMMENTS
EXAMPLE
The least number whose prime indices satisfy (product) - (sum) = 3 is 25 (prime indices {3,3}), so a(3) = 25.
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
pp=Table[Total[prix[n]]-Times@@prix[n], {n, 100}];
mnrm[s_]:=If[Min@@s==1, mnrm[DeleteCases[s-1, 0]]+1, 0];
Table[Position[pp, -i][[1, 1]], {i, 0, mnrm[-DeleteCases[pp, 0|_?Positive]]}]
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Gus Wiseman, Jan 21 2025
STATUS
approved
