OFFSET
0
COMMENTS
Question: Does the sequence have asymptotic mean? See also A328307 and A351071. - Antti Karttunen, Jan 10 2024
LINKS
FORMULA
For n > 0, a(n) <= A368916(n). - Antti Karttunen, Jan 10 2024
PROG
(PARI)
A003415checked(n) = if(n<=1, 0, my(f=factor(n), s=0); for(i=1, #f~, if(f[i, 2]>=f[i, 1], return(0), s += f[i, 2]/f[i, 1])); (n*s));
A276086(n) = { my(i=0, m=1, pr=1, nextpr); while((n>0), i=i+1; nextpr = prime(i)*pr; if((n%nextpr), m*=(prime(i)^((n%nextpr)/pr)); n-=(n%nextpr)); pr=nextpr); m; };
A328308(n) = if(!n, 1, while(n>1, n = A003415checked(n)); (n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 12 2019
STATUS
approved