This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A382486 #24 Apr 17 2025 14:54:55
%S A382486 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,
%T A382486 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,
%U A382486 6,1,2,3,70,1,6,1,2,15,2,7,6,1,10,3,2,1,42,5
%N A382486 Product of distinct prime divisors of n that are <= sqrt(n).
%F A382486 a(p) = 1, for prime p.
%t A382486 Table[Times @@ Select[Divisors[n], PrimeQ[#] && # <= Sqrt[n] &], {n, 1, 85}]
%o A382486 (PARI) a(n) = vecprod(select(x->x<=sqrt(n), factor(n)[,1])); \\ _Michel Marcus_, Apr 17 2025
%Y A382486 Cf. A007947, A007955, A072499, A097974.
%K A382486 nonn
%O A382486 1,4
%A A382486 _Ilya Gutkovskiy_, Apr 10 2025