%I #9 Dec 16 2019 08:32:08
%S 22624,355374,885624,912247,1558248,1642624,1728375,1761991,2068373,
%T 2485375,2948373,2987872,3072248,3073623,3243750,3571749,3744872,
%U 3772248,3916374,4231248,4442877,4503247,4730373,4757750,5301125,5344623,5516125,5812477,6017247
%N Smallest of 4 consecutive numbers each divisible by a cube.
%H Giovanni Resta, <a href="/A271444/b271444.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1)=22624 is the smallest cubeful number followed by other 3 cubeful numbers. They are divisible by 2^5, 5^3, 3^3, and 11^3, respectively.
%t cubQ[n_] := Max[Last /@ FactorInteger[n]] > 2; Select[Range[10^6], cubQ[#] && cubQ[# + 1] && cubQ[# + 2] && cubQ[# + 3] &]
%Y Cf. A046099, A068140, A122692, A271445, A271446, A271447, A271443.
%K nonn
%O 1,1
%A _Giovanni Resta_, Apr 26 2016
|