login
A346233
a(n) = A276086(A328623(n)).
4
1, 2, 9, 18, 3, 6, 125, 250, 1125, 2250, 375, 750, 5, 10, 45, 90, 15, 30, 625, 1250, 5625, 11250, 1875, 3750, 25, 50, 225, 450, 75, 150, 2401, 4802, 21609, 43218, 7203, 14406, 300125, 600250, 2701125, 5402250, 900375, 1800750, 12005, 24010, 108045, 216090, 36015, 72030, 1500625, 3001250, 13505625, 27011250, 4501875
OFFSET
0,2
FORMULA
a(n) = A276086(A328623(n)).
A342001(a(n)) = A346253(n).
PROG
(PARI) A346233(n) = { my(p=2, m=1); while(n>0, my(d=n%p); if(d>0, m *= p^if(2==p, d, lift(Mod(d, p)/2))); n \= p; p = nextprime(1+p)); return(m); };
CROSSREFS
Cf. also A346101, A346102.
Sequence in context: A357432 A369000 A346102 * A358946 A282519 A359580
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Jul 18 2021
STATUS
approved