A332825 a(n) = A019565(phi(n)).

2, 2, 3, 3, 5, 3, 15, 5, 15, 5, 21, 5, 35, 15, 7, 7, 11, 15, 33, 7, 35, 21, 165, 7, 55, 35, 33, 35, 385, 7, 1155, 11, 55, 11, 77, 35, 65, 33, 77, 11, 91, 35, 273, 55, 77, 165, 1365, 11, 273, 55, 13, 77, 715, 33, 91, 77, 65, 385, 3003, 11, 5005, 1155, 65, 13, 143, 55, 51, 13, 455, 77, 255, 77, 119, 65, 91, 65, 5005, 77

Offset

1,1

Links

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

Formula

a(n) = A019565(A000010(n)).

a(n) = A332824(n) / A318834(n)

a(4n) = A003961(a(2n)), a(4n+2) = a(2n+1).

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
A332825(n) = A019565(eulerphi(n));

Crossrefs

Cf. A000010, A003961, A019565, A318834, A332824.

Sequence in context: A039650 A039649 A214288 * A253554 A252463 A332893

Adjacent sequences: A332822 A332823 A332824 * A332826 A332827 A332828

Keyword

nonn

Author

Antti Karttunen, Feb 25 2020

Status

approved