%I #10 Dec 25 2016 11:57:47
%S 2,3,5,7,11,47,61,347,7057
%N Primes p such that 4^p - 3 is prime.
%C In the sequence, but not necessarily the next terms: 25237, 33211, 177473, 351097.
%t Select[Prime@ Range[10^3], PrimeQ[4^# - 3] &] (* _Michael De Vlieger_, Dec 25 2016 *)
%K nonn
%O 1,1
%A _G. L. Honaker, Jr._, Dec 05 2000