OFFSET
1,1
MATHEMATICA
Do[k = 1; While[m = (k^6 + 1)/(n^6 + 1); m < 2 || !IntegerQ[m], k++ ]; Print[k], {n, 1, 40} ]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Dec 11 2001
STATUS
approved