OFFSET
1,3
COMMENTS
Permutation of nonnegative integers.
LINKS
PROG
(PARI)
A276085(n) = { my(f = factor(n), pr=1, i=1, s=0); for(k=1, #f~, while(i <= primepi(f[k, 1])-1, pr *= prime(i); i++); s += f[k, 2]*pr); (s); };
A359550(n) = { my(pp); forprime(p=2, , pp = p^p; if(!(n%pp), return(0)); if(pp > n, return(1))); }; \\ Antti Karttunen, Nov 13 2024
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Antti Karttunen, Nov 13 2024
STATUS
approved