%I #19 Jan 18 2019 14:21:52
%S 628937,875579,2602073,3095357,4328567,5068493,5808419,6301703,
%T 6794987,7288271,8274839,10741259,14440889,14687531,14934173,18140519,
%U 19620371,20606939,21840149,22826717,23073359,24553211,28252841,28992767,29239409,30719261,32199113
%N Primes that are congruent to both 11 mod 111 and 111 mod 1111.
%C Primes congruent to 12332 mod 123321. - _Robert Israel_, Dec 24 2014
%H Harvey P. Dale, <a href="/A252894/b252894.txt">Table of n, a(n) for n = 1..1000</a>
%p select(isprime, [seq(12332+123321*(2*j+1), j=0..1000)]);# _Robert Israel_, Dec 24 2014
%t nn=40*10^6;Intersection[Select[Range[111,nn,1111],PrimeQ],Select[ Range[ 11,nn,111],PrimeQ]] (* or *) Select[Range[12332,33*10^6,123321],PrimeQ]
%t Select[Prime[Range[2*10^6]],Mod[#,111]==11&&Mod[#,1111]==111&] (* or *) Select[12332+(123321*Range[1,300,2]),PrimeQ] (* _Harvey P. Dale_, Jan 18 2019 *)
%K nonn,easy
%O 1,1
%A _Harvey P. Dale_, Dec 24 2014