A332824 a(n) = Product_{d|n} A019565(phi(d)), where phi is Euler totient function A000010.

2, 4, 6, 12, 10, 36, 30, 60, 90, 100, 42, 540, 70, 900, 210, 420, 22, 8100, 66, 2100, 3150, 1764, 330, 18900, 550, 4900, 2970, 94500, 770, 44100, 2310, 4620, 6930, 484, 11550, 4252500, 130, 4356, 16170, 115500, 182, 9922500, 546, 291060, 242550, 108900, 2730, 1455300, 8190, 302500, 858, 1131900, 1430, 8820900, 19110

Offset

1,1

Links

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

Formula

a(n) = Product_{d|n} A332825(d).

a(n) = A318834(n) * A332825(n).

A048675(a(n)) = n.

A097248(a(n)) = A019565(n).

Prog

(PARI)
A019565(n) = {my(j, v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ From A019565
A332824(n) = { my(m=1); fordiv(n, d, m *= A019565(eulerphi(d))); (m); };

Crossrefs

Cf. A000010, A019565, A097248, A318834, A332825, A332826, A332827.

Cf. A048675 (a left inverse).

Sequence in context: A136103 A182235 A180304 * A053146 A056675 A062857

Adjacent sequences: A332821 A332822 A332823 * A332825 A332826 A332827

Keyword

nonn

Author

Antti Karttunen, Feb 25 2020

Status

approved