This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A271444 #11 Jan 05 2025 16:05:58 %S A271444 22624,355374,885624,912247,1558248,1642624,1728375,1761991,2068373, %T A271444 2485375,2948373,2987872,3072248,3073623,3243750,3571749,3744872, %U A271444 3772248,3916374,4231248,4442877,4503247,4730373,4757750,5301125,5344623,5516125,5812477,6017247 %N A271444 Smallest of 4 consecutive numbers each divisible by a cube greater than one. %H A271444 Giovanni Resta, <a href="/A271444/b271444.txt">Table of n, a(n) for n = 1..10000</a> %e A271444 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 A271444 cubQ[n_] := Max[Last /@ FactorInteger[n]] > 2; Select[Range[10^6], cubQ[#] && cubQ[# + 1] && cubQ[# + 2] && cubQ[# + 3] &] %t A271444 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 *) %Y A271444 Cf. A046099, A068140, A122692, A271445, A271446, A271447, A271443. %K A271444 nonn %O A271444 1,1 %A A271444 _Giovanni Resta_, Apr 26 2016 %E A271444 Definition clarified by _Harvey P. Dale_, Jan 05 2025