Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #2 Mar 30 2012 17:26:35
%S 2,3,5,4,6,3,5,2,3,2,6,5,4,3,5,4,3,2,6,5,6,3,5,2,4,5,4,6,2,4,3,2,6,5,
%T 4,6,2,4,3,6,3,5,2,3,6,5,4,3,5,4,3,6,6,3,5,2,2,4,6,3,2,3,2,5,4,5,2,3,
%U 6,4,6,5,2,2,6,5,3,4,2,6,5,3,5,2,4,3,2,4,3,6,5,4,6,5,4,3,4,6,3,2,3,5,4,5,2
%N a(n) = A042997(n) mod 7.
%t Mod[Select[Prime[Range[500]],1<Mod[ #,7]&],7]
%Y Cf. A042997 Primes congruent to {2, 3, 4, 5, 6} mod 7,
%K nonn
%O 1,1
%A _Zak Seidov_, Jul 16 2010