login
A347123
Fully multiplicative with a(prime(k)) = prime(1+floor(A001223(k)/2)).
3
1, 2, 3, 4, 3, 6, 5, 8, 9, 6, 3, 12, 5, 10, 9, 16, 3, 18, 5, 12, 15, 6, 7, 24, 9, 10, 27, 20, 3, 18, 7, 32, 9, 6, 15, 36, 5, 10, 15, 24, 3, 30, 5, 12, 27, 14, 7, 48, 25, 18, 9, 20, 7, 54, 9, 40, 15, 6, 3, 36, 7, 14, 45, 64, 15, 18, 5, 12, 21, 30, 3, 72, 7, 10, 27, 20, 15, 30, 5, 48, 81, 6, 7, 60, 9, 10, 9, 24, 11, 54
OFFSET
1,2
FORMULA
For all n >= 1, A001222(a(n)) = A001222(n), A007814(a(n)) = A007814(n).
For all n >= 1, a(A003586(n)) = A003586(n).
PROG
(PARI) A347123(n) = { my(f=factor(n)); for(i=1, #f~, f[i, 1] = prime(1+((nextprime(f[i, 1]+1)-f[i, 1])\2))); factorback(f); };
CROSSREFS
KEYWORD
nonn,mult,look
AUTHOR
Antti Karttunen, Aug 19 2021
STATUS
approved