OFFSET
0
LINKS
FORMULA
PROG
(PARI) A356162(n) = { my(m=1, p=2, orgn=n); while(n, m *= (p^min(n%p, valuation(orgn, p))); n = n\p; p = nextprime(1+p)); (1==m); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 28 2022
STATUS
approved