A178386 - OEIS

%I #2 Mar 31 2012 12:38:36

%S 7,11,17,41,59,71,103,113,239,269,283,311,313,373,397,449,577,587,701,

%T 787,827,907,941,977,1033,1117,1217,1259,1361,1373,1423,1571,1721,

%U 1907,1949,2087,2137,2203,2287,2293,2347,2423,2549,2591,2677,2897,2957,3023

%N Primes p such that q*p+-Mod(p,q) are primes, for q=6.

%C 6*7=42+-1->primes, 6*11=66+-5->primes,..

%t q=6;lst={};Do[p=Prime[n];If[PrimeQ[q*p-Mod[p,q]]&&PrimeQ[q*p+Mod[p,q]],AppendTo[lst,p]],{n,7!}];lst

%Y Cf. A000040, A178383, A178385

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, May 26 2010