|
%I #14 Mar 02 2024 13:34:05
%S 50,75,80,98,112,135,147,189,240,242,245,252,270,294,300,336,338,350,
%T 352,360,363,378,396,416,450,468,480,490,504,507,525,528,540,550,560,
%U 578,588,594,600,605,612,624,650,672,684,700,702,720,722,726,735,750,756
%N Numbers k that are neither squarefree nor prime powers such that max(A119288(k), A053669(k)) <= A003557(k) < A007947(k).
%C Does not contain 3-smooth numbers.
%C Contains neither A168263 nor A367511.
%C Conjecture: contains most highly composite numbers.
%H Michael De Vlieger, <a href="/A367708/b367708.txt">Table of n, a(n) for n = 1..10000</a>
%F Union of {k = m*s : rad(m) | s, max(p, q) <= m < s}, where s is in A120944.
%F {a(n)} = A364702 \ A366250.
%F {a(n)} = A361098 \ A341645.
%e Let q = A053669(k) and let p = A119288(k).
%e For s = 10, we have {50, 80}, since
%e s * { max(p, q) <= m < s : rad(m) | s }
%e = 10*{ max(5, 3) <= m < 10 : rad(m) | 10 }
%e = 10*{5, 8} = {50, 80}.
%e For s = 15, we have {45, 135}, since
%e s * { max(p, q) <= m < s : rad(m) | s }
%e = 15*{ max(5, 2) <= m < 15 : rad(m) | 15 }
%e = 15*{5, 9} = {240, 270, 300, 360, 450, 480, 540, 600, 720, 750, 810}.
%e For s = 30, we have {45, 135}, since
%e s * { max(p, q) <= m < s : rad(m) | s }
%e = 30*{ max(3, 7) <= m < 30 : rad(m) | 30 }
%e = 30*{8, 9, 10, 12, 15, 16, 18, 20, 24, 25, 27}
%e = {240, 270, 300, 360, 450, 480, 540, 600, 720, 750, 810}.
%t nn = 756;
%t Select[Select[Range[12, nn], Nor[SquareFreeQ[#], PrimePowerQ[#]] &],
%t And[Max[#2, #3] <= #1 < #4, ! AllTrue[#5, # > 1 &]] & @@
%t {#1/#4, #2, #3, #4, #5} & @@
%t {#1, #2[[2, 1]], #3, Times @@ #2[[All, 1]], #2[[All, -1]]} & @@
%t {#, FactorInteger[#], If[OddQ[#], 2,
%t q = 3; While[Divisible[#, q], q = NextPrime[q]]; q]} &]
%Y Cf. A002182, A003586, A053669, A119288, A120944, A168263, A341645, A361098, A364702, A366250, A367511.
%K nonn
%O 1,1
%A _Michael De Vlieger_, Feb 09 2024
|
