%I #16 Jan 16 2015 10:04:36
%S 13,21,27,33,51,57,63,69,93,99,117,141,147,183,189,201,261,267,273,
%T 303,321,327,357,363,369,399,411,429,453,477,489,513,531,567,597,603,
%U 609,651,663,729,819,849,867,873,897,957,981,987
%N Numbers n such that n + 10 and n - 10 are both prime.
%C 3 divides every term except the first. - _T. D. Noe_, May 14 2008
%H T. D. Noe, <a href="/A087683/b087683.txt">Table of n, a(n) for n=1..1000</a>
%t f[n_]:=PrimeQ[n-10]&&PrimeQ[n+10]; lst={};Do[If[f[n],AppendTo[lst,n]],{n,9,8!,2}];lst (* _Vladimir Joseph Stephan Orlovsky_, Oct 09 2009 *)
%Y Cf. A014574, A087678-A087682, A087695-A087697, A088770.
%K easy,nonn
%O 1,1
%A _Zak Seidov_, Sep 27 2003
|