The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A329602

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

Square root of largest square dividing A108951(n), where A108951 is fully multiplicative with a(prime(i)) = prime(i)# = Product_{i=1..i} A000040(i).
(history; published version)

#7 by Susanna Cuyler at Wed Nov 20 09:34:53 EST 2019

STATUS

proposed

approved

#6 by Antti Karttunen at Tue Nov 19 20:03:10 EST 2019

STATUS

editing

proposed

#5 by Antti Karttunen at Tue Nov 19 20:02:49 EST 2019

NAME

Square root of largest square dividing A108951(n), where A108951 is fully multiplicative with a(prime(i)) = prime(i)# = Product_{i=1..i} A000040(i). a(n) = A000188(A108951(n)).

#4 by Antti Karttunen at Tue Nov 19 20:02:13 EST 2019

LINKS

Antti Karttunen, <a href="/A329602/b329602.txt">Table of n, a(n) for n = 1..10201</a>

PROG

A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) }; \\ From A108951

A329602(n) = A000188(A108951(n));

#3 by Antti Karttunen at Tue Nov 19 19:57:06 EST 2019

NAME

Square root of largest square dividing A108951(n), where A108951 is fully multiplicative with a(prime(i)) = prime(i)# = Product_{i=1..i} A000040(i). a(n) = A000188(A108951(n)).

#2 by Antti Karttunen at Tue Nov 19 19:54:52 EST 2019

NAME

allocated for Antti Karttunen

a(n) = A000188(A108951(n)).

DATA

1, 1, 1, 2, 1, 2, 1, 2, 6, 2, 1, 2, 1, 2, 6, 4, 1, 6, 1, 2, 6, 2, 1, 4, 30, 2, 6, 2, 1, 6, 1, 4, 6, 2, 30, 12, 1, 2, 6, 4, 1, 6, 1, 2, 6, 2, 1, 4, 210, 30, 6, 2, 1, 12, 30, 4, 6, 2, 1, 12, 1, 2, 6, 8, 30, 6, 1, 2, 6, 30, 1, 12, 1, 2, 30, 2, 210, 6, 1, 4, 36, 2, 1, 12, 30, 2, 6, 4, 1, 12, 210, 2, 6, 2, 30, 8, 1, 210, 6, 60, 1, 6, 1, 4, 30

OFFSET

1,4

FORMULA

a(n) = A000188(A108951(n)).

PROG

(PARI)

A000188(n) = core(n, 1)[2]; \\ From A000188

A034386(n) = prod(i=1, primepi(n), prime(i));

A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) }; \\ From A108951

CROSSREFS

Cf. A000188, A108951.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Nov 19 2019

STATUS

approved

editing

#1 by Antti Karttunen at Sun Nov 17 16:33:06 EST 2019

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved