%I #5 Dec 18 2015 15:08:59
%S 11,17,41,53,59,89,137,167,251,263,269,431,467,563,599,677,683,809,
%T 857,1061,1109,1181,1223,1259,1277,1319,1361,1523,1607,1889,1931,1949,
%U 2111,2237,2393,2399,2741,3251,3371,3617,3821,3833,3881,4133,4217,4373,4679
%N Primes p such that 5(p-5)-1 and 5(p-5)+1 are twin primes.
%C In other words, primes p such that 5*(p-5) is member of A014574. [From _Omar E. Pol_, Aug 05 2009]
%H Harvey P. Dale, <a href="/A163387/b163387.txt">Table of n, a(n) for n = 1..1000</a>
%e 5*(11-5)=30, 5*(17-5)=60,...
%t f1[n_]:=If[PrimeQ[n-1]&&PrimeQ[n+1],True,False]; f2[n_]:=If[f1[n]&&PrimeQ[n/5+5],True,False]; lst={};Do[If[f2[n],AppendTo[lst,n/5+5]],{n,8!}];lst
%t Select[Prime[Range[700]],AllTrue[5(#-5)+{1,-1},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 18 2015 *)
%Y Cf. A163385, A163386
%Y Cf. A014574, A163388 [From _Omar E. Pol_, Aug 05 2009]
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 25 2009
%E Definition clarified by _Omar E. Pol_, Aug 05 2009