A366787 a(n) = A366789(A163511(n)).

1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 9, 1, 3, 3, 1, 1, 1, 1, 27, 1, 9, 9, 1, 1, 3, 3, 3, 3, 1, 1, 5, 1, 1, 1, 81, 1, 27, 27, 1, 1, 9, 9, 3, 9, 1, 1, 25, 1, 3, 3, 9, 3, 3, 3, 5, 3, 1, 1, 15, 1, 5, 5, 3, 1, 1, 1, 243, 1, 81, 81, 1, 1, 27, 27, 3, 27, 1, 1, 125, 1, 9, 9, 9, 9, 3, 3, 25, 9, 1, 1, 75, 1, 25, 25, 9, 1, 3, 3, 27

Offset

0,8

Links

Antti Karttunen, Table of n, a(n) for n = 0..16383

Index entries for sequences related to binary expansion of n

Prog

(PARI)
A000265(n) = (n>>valuation(n, 2));
A163511(n) = if(!n, 1, my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
A366789(n) = { my(f=factor(n)); prod(k=1, #f~, A000265(primepi(f[k, 1]))^f[k, 2]); };
A366787(n) = A366789(A163511(n));

Crossrefs

Cf. A163511, A366789, A366792.

Cf. also A365426, A365427

Sequence in context: A229142 A156535 A365427 * A348038 A327564 A243748

Adjacent sequences: A366784 A366785 A366786 * A366788 A366789 A366790

Keyword

nonn

Author

Antti Karttunen, Oct 23 2023

Status

approved