login
A346101
"Inverted variant" of A276086: a(n) = A276086(A289234(n)).
4
1, 2, 3, 6, 9, 18, 5, 10, 15, 30, 45, 90, 125, 250, 375, 750, 1125, 2250, 25, 50, 75, 150, 225, 450, 625, 1250, 1875, 3750, 5625, 11250, 7, 14, 21, 42, 63, 126, 35, 70, 105, 210, 315, 630, 875, 1750, 2625, 5250, 7875, 15750, 175, 350, 525, 1050, 1575, 3150, 4375, 8750, 13125, 26250, 39375, 78750, 2401, 4802, 7203, 14406
OFFSET
0,2
FORMULA
a(n) = A276086(A289234(n)).
PROG
(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A289234(n) = { my(pr=1, p=2, v=0); while(n>0, my (d=n%p); if(d>0, v += pr * lift(1/Mod(d, p))); pr *= p; n \= p; p = nextprime(1+p)); return(v); }; \\ From A289234.
(PARI) A346101(n) = { my(p=2, m=1); while(n>0, my(d=n%p); if(d>0, m *= p^lift(1/Mod(d, p))); n \= p; p = nextprime(1+p)); return(m); };
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Jul 10 2021
STATUS
approved