A098239 Numbers n such that n^3 differs from smallest k > n that makes n^6+1 divide k^6+1.

1, 2, 6, 8, 47, 136, 177

Offset: 1

Author

Ralf Stephan, Sep 01 2004

Keywords

• nonn
• hard
• more

Comments

n such that A066021(n) differs from A000578(n).

a(8) > 10^6.

Programs

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 *)

Extensions

More terms from Robert G. Wilson v, Sep 03 2004

Lower bound for a(8) updated by Max Alekseyev, Oct 13 2009