%I A023218
%S A023218 3,5,11,17,29,47,53,71,83,89,101,113,131,167,251,257,263,281,311,389,419,
%T A023218 461,467,479,491,509,521,557,563,587,593,599,617,641,659,677,743,797,809,
%U A023218 827,857,881,929,977,983,1019,1061,1103,1187,1217,1259,1277,1289,1319
%N A023218 Numbers n such that n and 5n + 4 both prime.
%t A023218 lst={};Do[If[PrimeQ[n]&&PrimeQ[5*n+4], AppendTo[lst, n]], {n, 13^3}];
               lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 08 2008]
%Y A023218 Sequence in context: A001359 A096292 A078864 this_sequence A073022 A129694 
               A147015
%Y A023218 Adjacent sequences: A023215 A023216 A023217 this_sequence A023219 A023220 
               A023221
%K A023218 nonn
%O A023218 1,1
%A A023218 David W. Wilson (davidwwilson(AT)comcast.net)