login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(n) = A042997(n) mod 7.
1

%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