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,1

Links

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

Example

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.

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

Crossrefs

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

Sequence in context: A235067 A233856 A100420 * A335397 A251789 A105378

Adjacent sequences: A271441 A271442 A271443 * A271445 A271446 A271447

Keyword

nonn

Author

Giovanni Resta, Apr 26 2016

Extensions

Definition clarified by Harvey P. Dale, Jan 05 2025

Status

approved