A056555 -id:A056555 - cp's OEIS frontend

A056553 Smallest 4th-power divisible by n divided by largest 4th-power which divides n.

1, 16, 81, 16, 625, 1296, 2401, 16, 81, 10000, 14641, 1296, 28561, 38416, 50625, 1, 83521, 1296, 130321, 10000, 194481, 234256, 279841, 1296, 625, 456976, 81, 38416, 707281, 810000, 923521, 16, 1185921, 1336336, 1500625, 1296, 1874161, 2085136

Offset: 1

Henry Bottomley, Jun 25 2000

			a(64) = 16 because smallest 4th power divisible by 64 is 256 and largest 4th power which divides 64 is 16 and 256/16 = 16.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Henry Bottomley, Some Smarandache-type multiplicative sequences

Cf. A000190, A008835, A053164, A053165, A053166, A053167, A056551, A056554, A056555.

Cf. A013662, A013678.

f[p_, e_] := p^If[Divisible[e, 4], 0, 1]; a[n_] := (Times @@ (f @@@ FactorInteger[ n]))^4; Array[a, 100] (* Amiram Eldar, Aug 29 2019*)

a(n) = {my(f = factor(n)); prod(i = 1, #f~, if(f[i,2]%4, f[i,1], 1))^4; } \\ Amiram Eldar, Oct 27 2022

a(n) = A053167(n)/A008835(n) = A056556(n)*A053165(n) = A056554(n)^4.
From Amiram Eldar, Oct 27 2022: (Start)
Multiplicative with a(p^e) = 1 if e is divisible by 4, and a(p^e) = p^4 otherwise.
Sum_{k=1..n} a(k) ~ c * n^5, where c = (zeta(20)/(5*zeta(4))) * Product_{p prime} (1 - 1/p^2 + 1/p^4 - 1/p^7 + 1/p^8) = 0.123026157003... . (End)

A056554 Powerfree kernel of 4th-powerfree part of n.

Original entry on oeis.org

1, 2, 3, 2, 5, 6, 7, 2, 3, 10, 11, 6, 13, 14, 15, 1, 17, 6, 19, 10, 21, 22, 23, 6, 5, 26, 3, 14, 29, 30, 31, 2, 33, 34, 35, 6, 37, 38, 39, 10, 41, 42, 43, 22, 15, 46, 47, 3, 7, 10, 51, 26, 53, 6, 55, 14, 57, 58, 59, 30, 61, 62, 21, 2, 65, 66, 67, 34, 69, 70, 71, 6, 73, 74, 15, 38

Offset: 1

Henry Bottomley, Jun 25 2000

			a(64) = 2 because 4th-power-free part of 64 is 4 and power-free kernel of 4 is 2.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Henry Bottomley, Some Smarandache-type multiplicative sequences.

Cf. A000190, A007947, A008835, A013666, A053164, A053165, A053166, A053167, A056552, A056553, A056555.

f[p_, e_] :=  p^If[Divisible[e, 4], 0, 1]; a[n_] := Times @@ (f @@@ FactorInteger[ n]); Array[a, 100] (* Amiram Eldar, Aug 29 2019 *)

a(n) = my(f=factor(n)); for (k=1, #f~, if (frac(f[k,2]/4), f[k,2] = 1, f[k,2] = 0)); factorback(f); \\ Michel Marcus, Feb 28 2019

a(n) = A007947(A053165(n)) = A053166(A053165(n)) = n/(A053164(n)*A000190(n)) = A053166(n)/A053164(n) = A056553(n)^(1/4).
If n = Product_{j} Pj^Ej then a(n) = Product_{j} Pj^Fj, where Fj = 0 if Ej is 0 or a multiple of 4 and Fj = 1 otherwise.
Multiplicative with a(p^e) = p^(if 4|e, then 0, else 1). - Mitch Harris, Apr 19 2005
Sum_{k=1..n} a(k) ~ c * n^2, where c = (zeta(8)/2) * Product_{p prime} (1 - 1/p^2 + 1/p^3 - 1/p^4 + 1/p^5 - 1/p^6) = 0.3513111135... . - Amiram Eldar, Oct 27 2022

A062379 n divided by largest 4th-power-free factor of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset: 1

Henry Bottomley, Jun 18 2001

Antti Karttunen, Table of n, a(n) for n = 1..10000
Henry Bottomley, Some Smarandache-type multiplicative sequences.

Cf. A000190, A000583, A008835, A053164, A053165, A053166, A053167, A056553, A056554, A056555, A058035. See A003557 for squares and A062378 for cubes.

f[p_, e_] := p^Max[e-3, 0]; a[n_] := Times @@ (f @@@ FactorInteger[n]); Array[a, 100] (* Amiram Eldar, Sep 07 2020 *)

(define (A062379 n) (/ n (A058035 n)))
(define (A058035 n) (if (= 1 n) n (* (expt (A020639 n) (min 3 (A067029 n))) (A058035 (A028234 n)))))
;; Antti Karttunen, Sep 13 2017

a(n) = n/A058035(n).

Multiplicative with a(p^e) = p^max(e-3, 0). - Amiram Eldar, Sep 07 2020

cp's OEIS Frontend

A056553 Smallest 4th-power divisible by n divided by largest 4th-power which divides n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A056554 Powerfree kernel of 4th-powerfree part of n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A062379 n divided by largest 4th-power-free factor of n.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Scheme

Formula