A052125 a(n) = n/A034684(n).

1, 1, 1, 1, 1, 3, 1, 1, 1, 5, 1, 4, 1, 7, 5, 1, 1, 9, 1, 5, 7, 11, 1, 8, 1, 13, 1, 7, 1, 15, 1, 1, 11, 17, 7, 9, 1, 19, 13, 8, 1, 21, 1, 11, 9, 23, 1, 16, 1, 25, 17, 13, 1, 27, 11, 8, 19, 29, 1, 20, 1, 31, 9, 1, 13, 33, 1, 17, 23, 35, 1, 9, 1, 37, 25, 19, 11, 39, 1, 16, 1, 41, 1, 28, 17, 43

Offset

1,6

Comments

The largest aliquot unitary divisor of n, for n > 1. - Amiram Eldar, Nov 08 2020

Links

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

Example

Since A034684(6) = 2, the value of a(6) here is 6/2 = 3.

Mathematica

a[n_] := n / Min @ (Power @@@ FactorInteger[n]); Array[a, 100] (* Amiram Eldar, Nov 08 2020 *)

Prog

(PARI) A052125(n) = {local(f, m); if(n==1, 1, f=factor(n); m=f[1, 1]^f[1, 2]; for(i=1, matsize(f)[1], m=min(m, f[i, 1]^f[i, 2])); n/m)}; \\ Michael B. Porter, Jan 28 2010

Crossrefs

Cf. A034684.

Sequence in context: A028234 A322995 A336466 * A214874 A081060 A255811

Adjacent sequences: A052122 A052123 A052124 * A052126 A052127 A052128

Keyword

nonn

Author

James A. Sellers, Jan 21 2000

Status

approved