%I #25 Feb 12 2019 04:17:53
%S 7,11,13,23,29,47,53,59,83,107,149,167,173,179,227,263,269,293,317,
%T 347,359,383,389,467,479,503,509,557,563,587,653,719,773,797,839,863,
%U 887,983,1019,1109,1187,1229,1283,1307,1319,1367,1439,1487,1493,1523,1619
%N Primes p such that (p-1)/2 is prime if p == 3 (mod 4) or (p-1)/4 is prime if p == 1 (mod 4).
%H G. C. Greubel, <a href="/A090865/b090865.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[256]], PrimeQ[(#-1)/(5-Mod[#, 4])]& ] (* _Jean-François Alcover_, Jul 16 2012 *)
%o (PARI) forprime(p=1, 1619, if (((p%4==3) && isprime((p-1)/2)==1) || ((p%4==1) && isprime((p-1)/4)), print1(p, ", "))) \\ _Jinyuan Wang_, Feb 09 2019
%Y Subsequence of A058500.
%Y Union of (A005385 \ {5}) and A090866.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 12 2004