A379097 Numbers that are not waterproof.

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

Author

Peter Luschny, Dec 16 2024

Keywords

• nonn

Comments

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

Links

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

Crossrefs

Cf. A275339, A379094, A379096, A379098.

Programs

Maple

# 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)]);

Mathematica

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 *)

Python

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