A346233 a(n) = A276086(A328623(n)).

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

Links

Table of n, a(n) for n=0..52.

Index entries for sequences related to primorial base

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. A276086, A328623, A346253.

Cf. also A346101, A346102.

Sequence in context: A357432 A369000 A346102 * A358946 A282519 A359580

Adjacent sequences: A346230 A346231 A346232 * A346234 A346235 A346236

Keyword

nonn,base

Author

Antti Karttunen, Jul 18 2021

Status

approved