login
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).
3
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,3
COMMENTS
Permutation of nonnegative integers.
FORMULA
a(n) = A276085(A048103(n)).
For all n >= 1, A376411(a(n)) = n-1.
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
for(n=1, 105, if(A359550(n), print1(A276085(n), ", ")));
CROSSREFS
Cf. A376411 (inverse permutation, but note the different offsets and ranges).
Cf. also A048672 (analogous permutation for base-2).
Sequence in context: A331431 A248120 A144362 * A303761 A283478 A125666
KEYWORD
nonn,new
AUTHOR
Antti Karttunen, Nov 13 2024
STATUS
approved