cp's OEIS Frontend

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.

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

This page as a plain text file.
%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