A366510 Largest prime divisor of n which is < sqrt(n), 1 if n is prime, square of prime or 1.

1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 3, 2, 1, 3, 1, 2, 3, 2, 1, 3, 1, 2, 3, 2, 1, 5, 1, 2, 3, 2, 5, 3, 1, 2, 3, 5, 1, 3, 1, 2, 5, 2, 1, 3, 1, 5, 3, 2, 1, 3, 5, 7, 3, 2, 1, 5, 1, 2, 7, 2, 5, 3, 1, 2, 3, 7, 1, 3, 1, 2, 5, 2, 7, 3, 1, 5, 3, 2, 1, 7, 5, 2, 3, 2, 1, 5, 7, 2, 3, 2, 5, 3, 1, 7, 3, 5

Offset

1,6

Links

Andrew Howroyd, Table of n, a(n) for n = 1..10000

Prog

(PARI) a(n) = {my(m=1); foreach(factor(n)[, 1], d, if(d^2 < n, m=max(m, d))); m} \\ Andrew Howroyd, Oct 11 2023

Crossrefs

Cf. A006530, A060775, A085392, A217581.

Sequence in context: A302789 A346089 A302776 * A366522 A345934 A060775

Adjacent sequences: A366507 A366508 A366509 * A366511 A366512 A366513

Keyword

nonn

Author

Ilya Gutkovskiy, Oct 11 2023

Status

approved