The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A332825 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A332825

a(n) = A019565(phi(n)).
(history; published version)

#9 by Susanna Cuyler at Tue Feb 25 18:34:02 EST 2020

STATUS

proposed

approved

#8 by Antti Karttunen at Tue Feb 25 16:40:04 EST 2020

STATUS

editing

proposed

#7 by Antti Karttunen at Tue Feb 25 15:35:59 EST 2020

LINKS

Antti Karttunen, <a href="/A332825/b332825.txt">Table of n, a(n) for n = 1..8192</a>

#6 by Antti Karttunen at Tue Feb 25 14:33:19 EST 2020

FORMULA

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

#5 by Antti Karttunen at Tue Feb 25 14:27:18 EST 2020

FORMULA

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

#4 by Antti Karttunen at Tue Feb 25 14:20:00 EST 2020

FORMULA

For even n, a(2n4n) = A003961(a(n2n)).

#3 by Antti Karttunen at Tue Feb 25 14:18:10 EST 2020

FORMULA

For even n, a(2n) = A003961(a(n)).

CROSSREFS

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

#2 by Antti Karttunen at Tue Feb 25 14:13:55 EST 2020

NAME

allocated for Antti Karttunen

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

DATA

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

FORMULA

a(n) = A019565(A000010(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

A332825(n) = A019565(eulerphi(n));

CROSSREFS

Cf. A000010, A019565, A318834, A332824.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Feb 25 2020

STATUS

approved

editing

#1 by Antti Karttunen at Tue Feb 25 09:44:28 EST 2020

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved