A120312 Numbers k such that pi(k) == 0 (mod 4), where pi() = A000720, and such that prime(k) == 1 (mod 4).
7, 10, 21, 37, 40, 53, 55, 57, 71, 89, 108, 134, 135, 136, 151, 152, 174, 176, 178, 194, 196, 223, 226, 263, 264, 265, 267, 268, 312, 337, 338, 339, 341, 342, 343, 345, 359, 361, 362, 366, 384, 388
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
a = Flatten[Table[If[Mod[PrimePi[n], 4] == 0&& Mod[Prime[n], 4] - 1 == 0, n, {}], {n, 1, 200}]] Select[Range[400],Mod[PrimePi[#],4]==0&&Mod[Prime[#],4]==1&] (* Harvey P. Dale, Apr 29 2025 *)
Extensions
Edited and more terms added by Michel Marcus, Jun 01 2013
Offset corrected by Michel Marcus, Feb 10 2021