A382486 - OEIS

A382486

Product of distinct prime divisors of n that are <= sqrt(n).

1, 1, 1, 2, 1, 2, 1, 2, 3, 2, 1, 6, 1, 2, 3, 2, 1, 6, 1, 2, 3, 2, 1, 6, 5, 2, 3, 2, 1, 30, 1, 2, 3, 2, 5, 6, 1, 2, 3, 10, 1, 6, 1, 2, 15, 2, 1, 6, 7, 10, 3, 2, 1, 6, 5, 14, 3, 2, 1, 30, 1, 2, 21, 2, 5, 6, 1, 2, 3, 70, 1, 6, 1, 2, 15, 2, 7, 6, 1, 10, 3, 2, 1, 42, 5

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,4

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

FORMULA

a(p) = 1, for prime p.

MAPLE

f:= proc(n) convert(select(t -> t^2 <= n, NumberTheory:-PrimeFactors(n)), `*`) end proc:

map(f, [$1..100]); # Robert Israel, Feb 17 2026

MATHEMATICA

Table[Times @@ Select[Divisors[n], PrimeQ[#] && # <= Sqrt[n] &], {n, 1, 85}]