%I #9 Mar 01 2021 06:16:22
%S 2,7,11,17,21,26,37,46,49,53,57,61,64,71,73,80,92,98,103,106,114,118,
%T 121,137,138,145,148,160,166,168,175,186,188,190,196,204,206,210,215,
%U 218,232,236,243,248,255,258,263,265,273,281,289,292,296,316,321,334
%N Numbers k such that the k-th prime is congruent to 3 mod 7.
%C Also numbers k such that the k-th prime is congruent to 3 mod 14.
%C A045437 indexed by A000040.
%C The asymptotic density of this sequence is 1/6 (by Dirichlet's theorem). - _Amiram Eldar_, Mar 01 2021
%F a(n) = k such that A000040(k) = A045437(n).
%t Select[Range[350], Mod[Prime[#], 7] == 3 &] (* _Amiram Eldar_, Mar 01 2021 *)
%Y Cf. A024903, A033868, A045437, A089033, A090614.
%K nonn
%O 1,1
%A _Ray Chandler_, Dec 23 2003
%E Offset corrected by _Amiram Eldar_, Mar 01 2021
|