A271444 Smallest of 4 consecutive numbers each divisible by a cube greater than one.

22624, 355374, 885624, 912247, 1558248, 1642624, 1728375, 1761991, 2068373, 2485375, 2948373, 2987872, 3072248, 3073623, 3243750, 3571749, 3744872, 3772248, 3916374, 4231248, 4442877, 4503247, 4730373, 4757750, 5301125, 5344623, 5516125, 5812477, 6017247

Offset: 1

Author

Giovanni Resta, Apr 26 2016

Keywords

• nonn

Examples

			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.
		

Links

• Giovanni Resta, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A046099, A068140, A122692, A271445, A271446, A271447, A271443.

Programs

Mathematica

cubQ[n_] := Max[Last /@ FactorInteger[n]] > 2; Select[Range[10^6], cubQ[#] && cubQ[# + 1] && cubQ[# + 2] && cubQ[# + 3] &]
SequencePosition[Table[If[AnyTrue[Rest[Divisors[n]],IntegerQ[CubeRoot[#]]&],1,0],{n,61*10^5}],{1,1,1,1}][[;;,1]] (* Harvey P. Dale, Jan 05 2025 *)

Extensions

Definition clarified by Harvey P. Dale, Jan 05 2025