%I #16 Nov 21 2013 13:07:13
%S 7,11,13,19,31,37,47,59,67,73,97,107,151,179,193,227,271,277,307,331,
%T 359,367,373,409,433,439,467,487,499,571,577,587,599,647,673,691,709,
%U 719,839,853,907,991,997,1019,1031,1033,1039,1093,1129,1187,1259,1279
%N Primes p such that 4*p + (p mod 4) is also a prime.
%C A075522(a(n)) > 1.
%C A010051(A075520(A049084(a(n)))) = 1. [_Reinhard Zumkeller_, Feb 20 2012]
%H Reinhard Zumkeller, <a href="/A075521/b075521.txt">Table of n, a(n) for n = 1..10000</a>
%e 11 is a term as 4*11+(11 mod 4) = 44+3 = 47 is prime.
%t Select[Prime[Range[300]], PrimeQ[4*# + Mod[#, 4]] &] (* _Vladimir Joseph Stephan Orlovsky_, Feb 17 2012 *)
%o (Haskell)
%o a075521 n = a075521_list !! (n-1)
%o a075521_list = map a000040 $ filter ((== 1) . a010051' . a075520) [1..]
%o -- _Reinhard Zumkeller_, Feb 20 2012
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Sep 19 2002