OFFSET
1,1
MATHEMATICA
a = Flatten[Table[If[Mod[PrimePi[n], 4] == 0&& Mod[Prime[n], 4] -3 == 0, n, {}], {n, 1, 200}]]
Select[Range[400], Mod[PrimePi[#], 4]==0&&Mod[Prime[#], 4]==3&] (* Harvey P. Dale, Apr 17 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jun 20 2006
EXTENSIONS
Edited and more terms added by Michel Marcus, Jun 01 2013
Offset corrected by Michel Marcus, Feb 10 2021
STATUS
approved