login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A056191 Characteristic cube divisor of n: cube of g = gcd(K,F), where K is the largest square root divisor of n (A000188) and F = n/(K*K) = A007913(n) is its squarefree part; g^2 divides K^2 = A008833(n) = g^2*L^2 and g divides F = gf. 4
1, 1, 1, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8, 1, 1, 27, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 27, 1, 8, 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, 8, 1, 1, 1, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,8

COMMENTS

This is not the largest cube which divides n. It is canonical, since the decomposition n = KKgggf is unique (factors are defined above and dependent on n).

LINKS

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

FORMULA

a(n) = A055229(n)^3 = g^3 = ggg; n = (KK)*(ggg)*f = K^2*g^3*f = KK*a(n)^3*f.

Multiplicative with a(p^e)=1 for even e, a(p)=1, a(p^e)=p^3 for odd e > 1. - Vladeta Jovovic, May 01 2002

EXAMPLE

If n=24, largest square divisor is 4, squarefree part is 6, g=2, a(24)=8; n=81, largest square divisor is 81, both F and g is 1, a(81)=1.

MATHEMATICA

a[n_]:=With[{sf=Times@@Power@@@({#[[1]], Mod[#[[2]], 2]}&/@FactorInteger[n])}, GCD[sf, n/sf]]; Table[a[n]^3, {n, 1, 100}] (* Vincenzo Librandi, Oct 08 2017 *)

PROG

(Scheme, with memoization-macro definec, after Vladeta Jovovic's multiplicative formula)

(definec (A056191 n) (cond ((= 1 n) n) ((or (= 1 (A067029 n)) (even? (A067029 n))) (A056191 (A028234 n))) (else (* (A000578 (A020639 n)) (A056191 (A028234 n)))))) ;; Antti Karttunen, Oct 07 2017

CROSSREFS

Cf. A055229, A000188, A008833, A007913, A055231, A056192.

Sequence in context: A325222 A076346 A199461 * A103760 A268355 A008834

Adjacent sequences:  A056188 A056189 A056190 * A056192 A056193 A056194

KEYWORD

nonn,mult

AUTHOR

Labos Elemer, Aug 02 2000

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 18 19:59 EST 2019. Contains 329288 sequences. (Running on oeis4.)