|
%I
%S 11,19,59,151,331,359,439,499,571,599,1019,1039,1279,1319,1451,1871,
%T 2131,2179,2251,2459,2819,3119,3251,3539,3659,3911,4231,4679,5099,
%U 5351,5519,6199,6211,6599,6871,6991,7639,7759,8179,8999,9391,9739,10211
%N Primes p such that q*p+-Mod(p,q) are primes, for q=4.
%C 4*11=44+-3->primes,..
%t q=4;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
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 26 2010
|
