OFFSET
1,1
LINKS
EXAMPLE
PROG
(PARI)
A328114(n) = { my(s=0, p=2); while(n, s = max(s, (n%p)); n = n\p; p = nextprime(1+p)); (s); };
A051903(n) = if((1==n), 0, vecmax(factor(n)[, 2]));
A327860(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); m *= (p^e); s += (e/p); n = n\p; p = nextprime(1+p)); (s*m); };
(PARI) isA342006(n) = (0==A342005(n));
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Mar 03 2021
STATUS
approved