A097539 Subtract 4 from primes == 1 (mod 4).

1, 9, 13, 25, 33, 37, 49, 57, 69, 85, 93, 97, 105, 109, 133, 145, 153, 169, 177, 189, 193, 225, 229, 237, 253, 265, 273, 277, 289, 309, 313, 333, 345, 349, 369, 385, 393, 397, 405, 417, 429, 445, 453, 457, 505, 517, 537, 553, 565, 573, 589, 597, 609, 613, 637, 649, 657

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[150]], Mod[#, 4]==1&]-4 (* Harvey P. Dale, Apr 29 2020 *)

Crossrefs

Sequence in context: A291351 A338220 A242919 * A107913 A175532 A098074

Adjacent sequences: A097536 A097537 A097538 * A097540 A097541 A097542

Keyword

nonn

Author

N. J. A. Sloane, Aug 27 2004

Status

approved