%I #6 Oct 31 2013 12:17:45
%S 2,4,14,16,20,22,26,29,31,33,35,36,37,39,43,46,49,52,55,56,59,65,68,
%T 69,71,73,74,78,79,80,83,90,93,99,100,107,109,110,113,114,121,124,125,
%U 126,131,132,135,143,145,148,153,155,164,168,171,179,182,184,185,195,196,197
%N Positive integers not of the form (n-p(n+3)+p(n+1))/(p(n+2)-p(n)), where p(i) is the i-th prime.
%e There exists no positive integer, j, such that 2 = (j-p(j+3)+p(j+1)/(p(j+2)-p(j))).
%t f[n_] := (n - Prime[n + 3] + Prime[n + 1])/(Prime[n + 2] - Prime[n]); lst = {}; Do[ k = f@n; If[k < 10000 && IntegerQ@ k; lst = Union@ lst], {n, 10^7}]; Complement[Range@200, Take[lst, 200]]; (* _Robert G. Wilson v_ *)
%K nonn,less
%O 1,1
%A _Juri-Stepan Gerasimov_ & _Robert G. Wilson v_, Sep 10 2008
%E Definition corrected by _Charles R Greathouse IV_, Mar 26 2010
|