cp's OEIS Frontend

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

%I A098239 #9 Jul 16 2015 00:31:55
%S A098239 1,2,6,8,47,136,177
%N A098239 Numbers n such that n^3 differs from smallest k > n that makes n^6+1 divide k^6+1.
%C A098239 n such that A066021(n) differs from A000578(n).
%C A098239 a(8) > 10^6.
%t A098239 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 *)
%K A098239 nonn,hard,more
%O A098239 1,2
%A A098239 _Ralf Stephan_, Sep 01 2004
%E A098239 More terms from _Robert G. Wilson v_, Sep 03 2004
%E A098239 Lower bound for a(8) updated by _Max Alekseyev_, Oct 13 2009