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

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,16

Links

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

Henry Bottomley, Some Smarandache-type multiplicative sequences.

Formula

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

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

Mathematica

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

Prog

(Scheme)
(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

Crossrefs

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

Sequence in context: A365297 A270419 A275216 * A325625 A043288 A353786

Adjacent sequences: A062376 A062377 A062378 * A062380 A062381 A062382

Keyword

nonn,mult

Author

Henry Bottomley, Jun 18 2001

Status

approved