A379094 -id:A379094 - cp's OEIS frontend

A379093 Numbers whose factors in the canonical prime factorization neither increase weakly nor decrease weakly but are waterproof. (Terms of A379094 but not of A379097.)

90, 126, 180, 252, 270, 350, 360, 378, 504, 525, 540, 550, 594, 650, 700, 702, 756, 810, 825, 850, 918, 950, 975, 1026, 1050, 1078, 1080, 1100, 1134, 1150, 1188, 1242, 1274, 1275, 1300, 1350, 1400, 1404, 1425, 1512, 1575, 1617, 1620, 1650, 1666, 1700, 1725

Offset: 1

Peter Luschny, Dec 17 2024

nonn

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Cf. A379094, A379095, A379096, A379097.

# Using functions 'isA379094' and 'is_not_waterproof' (from A379097).
A := select(isA379094, {seq(1..1800)}):
B := select(is_not_waterproof, {seq(1..1800)}):
A minus B;

nn = 1725; s = Select[Range[nn], Nor[SquareFreeQ[#], PrimePowerQ[#]] &];
Select[s, Function[f, And[NoneTrue[{Sort[f], ReverseSort[f]}, # == f &],
  Total[(f //. {a___, b_, c__, d_, e___} /;
    AllTrue[{c}, And[# < b, # < d] &] :>
      {a, b, Sequence @@ Table[Min[b, d], {Length[{c}] } ], d, e}) - f] == 0] ]
[Power @@@ FactorInteger[#]] &] (* Michael De Vlieger, Dec 18 2024, after Jean-François Alcover at A275339 *)

A379097 Numbers that are not waterproof.

Original entry on oeis.org

60, 84, 120, 132, 156, 168, 204, 228, 240, 264, 276, 280, 300, 312, 315, 336, 348, 372, 408, 420, 440, 444, 456, 480, 492, 495, 516, 520, 528, 552, 560, 564, 585, 588, 600, 616, 624, 630, 636, 660, 672, 680, 693, 696, 708, 728, 732, 744, 760, 765, 780, 804, 816

Offset: 1

Peter Luschny, Dec 16 2024

nonn

Zero and one are waterproof numbers by convention. Numbers that admit a prime factorization are not waterproof if their water capacity is > 0. (The water capacity of a number is defined in A275339.)

Proper subset of A375055, in turn a proper subset of A126706, since A001221(a(n)) >= 3 and a maximum multiplicity is required for at least one prime power factor, so as to have positive water capacity. - Michael De Vlieger, Dec 18 2024

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Cf. A275339, A379094, A379096, A379098.

# The function 'water_capacity' is defined in A275339.
is_not_waterproof := n -> ifelse(n < 2, false, is(water_capacity(n) <> 0)):
select(is_not_waterproof, [seq(0..820)]);

nn = 816;
s = Select[Range[nn], Nor[SquareFreeQ[#], PrimePowerQ[#]] &];
Select[s, Function[f, And[NoneTrue[{Sort[f], ReverseSort[f]}, # == f &],
  Total[(f //. {a___, b_, c__, d_, e___} /;
    AllTrue[{c}, And[# < b, # < d] &] :>
    {a, b, Sequence @@ Table[Min[b, d], {Length[{c}]}], d, e}) - f] > 0] ]
[Power @@@ FactorInteger[#]] &] (* Michael De Vlieger, Dec 18 2024, after Jean-François Alcover at A275339 *)

# The function 'WaterCapacity' is defined in A275339.
print([n for n in range(818) if WaterCapacity(n) > 0])

A379096 Waterproof numbers >= 60.

Original entry on oeis.org

61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 121

Offset: 1

Peter Luschny, Dec 16 2024

nonn

All nonnegative numbers less than 60 are waterproof.
Zero and one are waterproof numbers by convention. Numbers that admit a prime factorization are waterproof if their water capacity is 0. (The water capacity of a number is defined in A275339.)
If the factors p_i^e_i in the canonical prime factorization of n are weakly ascending or weakly descending, then n is waterproof.
A number is waterproof if and only if it equals its waterproof hull (A379098). The waterproof hull h(n) of n is the smallest waterproof number that n divides.
Numbers that are not waterproof are listed in A379097.

			Numbers having at most two distinct prime factors (A070915) are waterproof. The primorials (A002110) are waterproof.
48300 has a water capacity of 17 and so is not waterproof. The waterproof hull of 48300 is 1014300.

Cf. A275339, A379094, A379095, A379097, A379098.

# The function 'water_capacity' is defined in A275339.
is_waterproof := n -> ifelse(n < 2, true, is(water_capacity(n) = 0)):
select(is_waterproof, [seq(60..121)]);

# The function 'WaterCapacity' is defined in A275339.
print([n for n in range(60, 122) if WaterCapacity(n) == 0])

cp's OEIS Frontend

A379093 Numbers whose factors in the canonical prime factorization neither increase weakly nor decrease weakly but are waterproof. (Terms of A379094 but not of A379097.)

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A379097 Numbers that are not waterproof.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Python

A379096 Waterproof numbers >= 60.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Python