OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(p -> isprime(p) and isprime((p-3)/4), [seq(p, p=7..10000, 4)]); # Robert Israel, Aug 08 2019
MATHEMATICA
Select[3 + 4Prime@Range[130], PrimeQ] (* Ray Chandler, Jun 29 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot, Mar 09 2007
EXTENSIONS
Checked and extended by N. J. A. Sloane, Mar 10 2007
STATUS
approved