|
%I #9 Aug 21 2017 16:04:54
%S 729,1000,4913,5832,6859,15625,21952,35937,50653,68921,97336,117649,
%T 166375,185193,262144,274625,389017,531441,551368,704969,753571,
%U 912673,1000000,1157625,1295029,1442897,1643032,1771561,2000376,2048383
%N Cubes k such that k-1 is divisible by a cube >1.
%F a(n) = A088036(n)^3. - _R. J. Mathar_, Dec 03 2015
%t Select[Range[150]^3,Max[FactorInteger[#-1][[All,2]]]>2&] (* _Harvey P. Dale_, Aug 21 2017 *)
%Y Cf. A088036.
%K nonn
%O 0,1
%A _Amarnath Murthy_, Sep 19 2003
%E Corrected and extended by _Ray Chandler_, Sep 23 2003
|
