|
%I #18 Apr 18 2023 08:29:11
%S 2946,50378,50380,50382,50383,50384,50385,50386,50387,50388,50389,
%T 50390,50391,50392,50414,50415,50416,50417,50418,50419,50420,50421,
%U 50422,50424,50426,50428,50430,50436,50438,50446,50447,50448,50450
%N Integers k for which {prime(1), prime(2), ..., prime(k)} (mod 4) is biased towards 1.
%C Indices of negative terms in A038698. - _Jianing Song_, Feb 20 2019
%H Robert Israel, <a href="/A096628/b096628.txt">Table of n, a(n) for n = 1..7804</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ChebyshevBias.html">Chebyshev Bias</a>
%p R:= NULL: count:= 0: v:= 0: p:= 2:
%p for i from 2 while count < 100 do
%p p:= nextprime(p);
%p if p mod 4 = 3 then v:= v+1
%p else v:= v-1
%p fi;
%p if v < 0 then R:= R,i; count:= count+1 fi
%p od:
%p R; # _Robert Israel_, Apr 17 2023
%Y Cf. A007350, A038691, A038698, A051024, A051025, A066520, A199547.
%K nonn
%O 1,1
%A _Eric W. Weisstein_, Jul 01 2004
|
