STATUS
editing
approved
editing
approved
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 *)
approved
editing
editing
approved
Harvey P. Dale, <a href="/A252894/b252894.txt">Table of n, a(n) for n = 1..1000</a>
approved
editing
editing
approved
Select[Prime[Range[2*10^6]], Mod[#, 111]==11&&Mod[#, 1111]==111&] (* or *) Select[12332+(123321*Range[300]), PrimeQ] (* Harvey P. Dale, Jan 18 2019 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
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]
approved
editing