A186524 - OEIS

%I #8 Mar 12 2015 23:34:42

%S 6,9,13,17,34,40,48,51,62,72,73,79,80,86,100,102,109,113,116,120,134,

%T 139,142,146,162,165,169,180,183,194,198,202,206,219,228,229,239,248,

%U 249,255,267,270,271,285,288,291,295,299,300,310,312,330,331

%N Numbers n such that n == prime(n) (mod 7).

%e 6 and 13, the 6th prime, are equal (mod 7).

%t Select[Range[1000],Mod[#,7] == Mod[Prime[#],7]&]

%K nonn

%O 1,1

%A _Zak Seidov_, Feb 23 2011