OFFSET
2,5
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..10000
MATHEMATICA
ucototient[n_] := n - Times @@ (Power @@@ FactorInteger[n] - 1); ucototient[1] = 0; With[{max = 100}, ucot = Table[ucototient[n], {n, 1, max^2}]; Table[Length[Position[ucot, n]], {n, 2, max}] // Flatten]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 10 2023
STATUS
approved