The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A322020

a(n) = Product_{d|n, gcd(d,n/d) is a prime power} gcd(d,n/d).
(history; published version)

#7 by Susanna Cuyler at Wed Nov 28 20:59:08 EST 2018

STATUS

proposed

approved

#6 by Antti Karttunen at Wed Nov 28 08:44:26 EST 2018

STATUS

editing

proposed

#5 by Antti Karttunen at Wed Nov 28 08:37:55 EST 2018

LINKS

Antti Karttunen, <a href="/A322020/b322020.txt">Table of n, a(n) for n = 1..16384</a>

CROSSREFS

Cf. A069513, A294876, A295666, A322021 (rgs-transform).

#4 by Antti Karttunen at Wed Nov 28 08:23:43 EST 2018

NAME

a(n) = Product_{d|n, gcd(d,n/d) is a prime power > 1} gcd(d,n/d).

FORMULA

a(n) = Product_{d|n} gcd(d,n/d)^A100995A069513(gcd(d,n/d)).

CROSSREFS

Cf. A100995, A069513, A294876, A295666, A322021 (rgs-transform).

#3 by Antti Karttunen at Wed Nov 28 08:21:29 EST 2018

CROSSREFS

Cf. A100995, A294876, A295666, A294877, A322021 (rgs-transform).

#2 by Antti Karttunen at Wed Nov 28 08:15:50 EST 2018

NAME

allocated for Antti Karttunena(n) = Product_{d|n, gcd(d,n/d) is a prime power > 1} gcd(d,n/d).

DATA

1, 1, 1, 2, 1, 1, 1, 4, 3, 1, 1, 4, 1, 1, 1, 16, 1, 9, 1, 4, 1, 1, 1, 16, 5, 1, 9, 4, 1, 1, 1, 64, 1, 1, 1, 36, 1, 1, 1, 16, 1, 1, 1, 4, 9, 1, 1, 256, 7, 25, 1, 4, 1, 81, 1, 16, 1, 1, 1, 16, 1, 1, 9, 512, 1, 1, 1, 4, 1, 1, 1, 144, 1, 1, 25, 4, 1, 1, 1, 256, 81, 1, 1, 16, 1, 1, 1, 16, 1, 81, 1, 4, 1, 1, 1, 4096, 1, 49, 9, 100, 1, 1, 1, 16, 1

OFFSET

1,4

FORMULA

a(n) = Product_{d|n} gcd(d,n/d)^A100995(gcd(d,n/d)).

PROG

(PARI) A322020(n) = { my(m=1, p); fordiv(n, d, p = gcd(d, n/d); if(isprimepower(p), m *= p)); m; };

CROSSREFS

Cf. A100995, A295666, A294877, A322021 (rgs-transform).

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Nov 28 2018

STATUS

approved

editing

#1 by Antti Karttunen at Sat Nov 24 11:01:25 EST 2018

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved