OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
MATHEMATICA
fctdiv[n_] := Module[{m = 1, k = 1}, While[Divisible[n, m], k++; m *= k]; m /= k; n/m]; Select[Range[10^4], FixedPoint[fctdiv, #] == 1 &] (* Amiram Eldar, May 22 2021 *)
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 18 2021
STATUS
approved