OFFSET
1,2
MATHEMATICA
f[n_] := Block[{k = 1, m}, While[m = (k^6 + 1)/(n^6 + 1); m < 2 || !IntegerQ[m], k++ ]; n^3 - k]; Do[ If[ f[n] != 0, Print[n]], {n, 215}] (* Robert G. Wilson v, Sep 03 2004 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Ralf Stephan, Sep 01 2004
EXTENSIONS
More terms from Robert G. Wilson v, Sep 03 2004
Lower bound for a(8) updated by Max Alekseyev, Oct 13 2009
STATUS
approved