A331732 Odd part of A241909(n).

1, 1, 1, 3, 1, 9, 1, 5, 3, 27, 1, 25, 1, 81, 9, 7, 1, 15, 1, 125, 27, 243, 1, 49, 3, 729, 5, 625, 1, 75, 1, 11, 81, 2187, 9, 35, 1, 6561, 243, 343, 1, 375, 1, 3125, 25, 19683, 1, 121, 3, 45, 729, 15625, 1, 21, 27, 2401, 2187, 59049, 1, 245, 1, 177147, 125, 13, 81, 1875, 1, 78125, 6561, 225, 1, 77, 1, 531441, 15, 390625, 9, 9375, 1, 1331

Offset

1,4

Links

Antti Karttunen, Table of n, a(n) for n = 1..16384

Index entries for sequences computed from indices in prime factorization

Formula

a(n) = A000265(A241909(n)).

Prog

(PARI)
A000265(n) = (n/2^valuation(n, 2));
A241909(n) = if(1==n||isprime(n), 2^primepi(n), my(f=factor(n), h=1, i, m=1, p=1, k=1); while(k<=#f~, p = nextprime(1+p); i = primepi(f[k, 1]); m *= p^(i-h); h = i; if(f[k, 2]>1, f[k, 2]--, k++)); (p*m));
A331732(n) = A000265(A241909(n));

Crossrefs

Cf. A000265, A241909, A331601.

Cf. also A322865, A331731.

Sequence in context: A325375 A317202 A355442 * A197259 A200006 A070894

Adjacent sequences: A331729 A331730 A331731 * A331733 A331734 A331735

Keyword

nonn

Author

Antti Karttunen, Jan 25 2020

Status

approved