OFFSET
1,3
COMMENTS
LINKS
PROG
(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
ismaxprimobasedigit_at_most(n, k) = { my(s=0, p=2); while(n, if((n%p)>k, return(0)); n = n\p; p = nextprime(1+p)); (1); };
isA341518(n) = ismaxprimobasedigit_at_most(A003415(n), 1); \\ Antti Karttunen, Feb 03 2024
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 28 2021
STATUS
approved