|
%I #12 Mar 08 2021 18:22:32
%S 1,2,3,4,5,6,7,8,10,11,13,14,16,17,19,20,22,23,26,28,29,31,32,34,37,
%T 38,41,43,44,46,47,52,53,58,59,61,62,64,67,68,71,73,74,76,79,82,83,86,
%U 88,89,92,94,97,101,103,104,106,107,109,113,116,118,122,124
%N Numbers without an inferior odd divisor > 1.
%C We define a divisor d|n to be inferior if d <= n/d. Inferior divisors are counted by A038548 and listed by A161906.
%C Numbers n such that n is either a power of 2 or has a single odd prime factor > sqrt(n). Equivalently, numbers n such that all odd prime factors are > sqrt(n). - _Chai Wah Wu_, Mar 08 2021
%e The divisors > 1 of 72 are {2, 3, 4, 6, 8, 9, 12, 18, 24, 36, 72}, of which {3, 9} are odd and {2, 3, 4, 6, 8} are inferior, with intersection {3}, so 72 is not in the sequence.
%t Select[Range[100],Function[n,Select[Divisors[n]//Rest,OddQ[#]&&#<=n/#&]=={}]]
%o (Python)
%o from sympy import primefactors
%o A342081_list = [n for n in range(1,10**3) if len([p for p in primefactors(n) if p > 2 and p*p <= n]) == 0] # _Chai Wah Wu_, Mar 08 2021
%Y The strictly inferior version is the same with A001248 added.
%Y Positions of 1's in A069288.
%Y The superior version is A116882, with complement A116883.
%Y The complement is A342082.
%Y A006530 selects the greatest prime factor.
%Y A020639 selects the smallest prime factor.
%Y A038548 counts superior (or inferior) divisors, with strict case A056924.
%Y - Odd -
%Y A000009 counts partitions into odd parts, ranked by A066208.
%Y A001227 counts odd divisors.
%Y A026424 lists numbers with odd Omega.
%Y A027193 counts odd-length partitions.
%Y A058695 counts partitions of odd numbers.
%Y A067659 counts strict partitions of odd length, ranked by A030059.
%Y A340101 counts factorizations into odd factors; A340102 also has odd length.
%Y A340854/A340855 cannot/can be factored with odd minimum factor.
%Y A341594 counts strictly superior odd divisors
%Y A341675 counts superior odd divisors.
%Y - Inferior: A033676, A066839, A161906.
%Y - Superior: A033677, A051283, A059172, A063538/A063539.
%Y - Strictly Inferior A333805, A341674.
%Y - Strictly Superior: A064052/A048098, A341645/A341646.
%Y Cf. A000005, A000203, A001055, A001221, A001222, A001414, A207375, A244991, A300272, A340832, A340931.
%K nonn
%O 1,2
%A _Gus Wiseman_, Mar 06 2021
|
