|
%I #9 Jun 02 2020 05:29:00
%S 1,2,5,6,8,9,14,19,20,22,27,34,35,41,43,44,54,65,71,77,78,85,91,93,99,
%T 100,104,110,111,112,113,118,131,134,135,141,142,155,160,167,170,176,
%U 184,188,195,196,203,209,210,212,215,219,222,223,226,229,232,245,252
%N Numbers n such that 30*n-1, 30*n+1 are twin primes.
%H Zak Seidov, <a href="/A176114/b176114.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[6! ],PrimeQ[30*#-1]&&PrimeQ[30*#+1]&]
%t Select[Range[300],AllTrue[30#+{1,-1},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 21 2018 *)
%Y Cf. A002822.
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Apr 08 2010
|
