%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