cp's OEIS Frontend

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.

A352699 Highly composite numbers that cease to be highly composite if divided by their largest prime factor.

This page as a plain text file.
%I A352699 #39 Mar 13 2023 02:54:21
%S A352699 24,48,360,720,7560,10080,15120,20160,25200,45360,50400,332640,665280,
%T A352699 10810800,14414400,17297280,21621600,32432400,43243200,1102701600,
%U A352699 2205403200,27935107200,48886437600,73329656400,97772875200,146659312800,293318625600,1606268664000
%N A352699 Highly composite numbers that cease to be highly composite if divided by their largest prime factor.
%H A352699 Amiram Eldar, <a href="/A352699/b352699.txt">Table of n, a(n) for n = 1..1199</a>
%e A352699 24 itself is highly composite, but the largest prime factor of 24 is 3, and 24/3 = 8, which is not highly composite. So 24 is a term of this sequence.
%t A352699 With[{hcn = Cases[Import["https://oeis.org/A002182/b002182.txt", "Table"], {_, _}][[;; , 2]]}, Select[hcn, FreeQ[hcn, #/FactorInteger[#][[-1, 1]]] &, 28]] (* _Amiram Eldar_, Mar 13 2023 *)
%Y A352699 Cf. A002182, A006530, A052126, A272605.
%K A352699 nonn
%O A352699 1,1
%A A352699 _J. Lowell_, Mar 30 2022