%I #5 Feb 15 2022 19:13:14
%S 1,1,3,7,13,21,4,43,1,73,91,111,5,2,183,211,241,7,27,343,6,421,463,
%T 507,553,189,19,1,757,813,7,931,993,1057,196,37,36,518,126,1483,1561,
%U 3,8,1807,61,1981,2071,2163,140,2353,2451,234,2653,91,2863,532,9,3193,3307,3423
%N Smallest k such that nk-1 is a cube.
%t Do[k = 1; While[ !IntegerQ[(n*k - 1)^(1/3)], k++ ]; Print[k], {n, 1, 59}]
%t skc[n_] :=Module[{k = 1}, While[! IntegerQ[Surd[ n*k - 1, 3]], k++]; k]; Array[skc,60] (* _Harvey P. Dale_, Feb 15 2022 *)
%K nonn
%O 1,3
%A _Amarnath Murthy_, Oct 20 2002
%E Edited and extended by _Robert G. Wilson v_, Oct 21 2002
%E Corrected and extended by _Harvey P. Dale_, Feb 15 2022
|