A113601 Intersection of A002144 and A005098.
13, 37, 73, 97, 193, 277, 373, 409, 433, 577, 673, 709, 853, 997, 1033, 1093, 1129, 1297, 1429, 1453, 1549, 1597, 1753, 1777, 2017, 2029, 2293, 2437, 2677, 2713, 2953, 3037, 3049, 3109, 3229, 3457, 3469, 3637, 3769, 3793, 3853, 4057, 4273, 4297, 4729
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[700]],IntegerQ[(#-1)/4]&&PrimeQ[4#+1]&] (* Harvey P. Dale, May 15 2022 *)
Comments