OFFSET
1,3
MATHEMATICA
Do[k = 1; While[ !IntegerQ[(n*k - 1)^(1/3)], k++ ]; Print[k], {n, 1, 59}]
skc[n_] :=Module[{k = 1}, While[! IntegerQ[Surd[ n*k - 1, 3]], k++]; k]; Array[skc, 60] (* Harvey P. Dale, Feb 15 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 20 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Oct 21 2002
Corrected and extended by Harvey P. Dale, Feb 15 2022
STATUS
approved