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