A376413 a(n) = A276085(A048103(n)), where A276085 is the primorial base log-function, and A048103 is the range of the primorial base exp-function (A276086).
0, 1, 2, 6, 3, 30, 4, 7, 210, 2310, 31, 8, 30030, 5, 510510, 32, 211, 9699690, 12, 2311, 223092870, 9, 6469693230, 212, 30031, 36, 200560490130, 510511, 2312, 7420738134810, 33, 304250263527210, 10, 9699691, 13082761331670030, 60, 13, 30032, 614889782588491410, 216, 510512, 223092871, 32589158477190044730
Offset: 1
Keywords
Links
Crossrefs
Programs
-
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 for(n=1,105,if(A359550(n),print1(A276085(n),", ")));
Comments