%I #15 Sep 08 2022 08:45:33

%S 2,5,19,41,43,71,113,131,167,223,229,281,331,383,457,461,467,509,541,

%T 593,797,839,937,947,971,1009,1013,1087,1097,1153,1231,1289,1471,1553,

%U 1559,1699,1787,2003,2099,2113,2617,2683,2689,2731,2749,2861,2879,2917

%N Prime numbers k such that 30*k - 1, 30*k + 1 are twin primes.

%H Amiram Eldar, <a href="/A138250/b138250.txt">Table of n, a(n) for n = 1..10000</a>

%e 2*30 - 1 = 59 (prime), 2*30 + 1 = 61 (prime).

%t a=30;Select[Prime[Range[250]],PrimeQ[a*#-1]&&PrimeQ[a*#+1] &]

%o (Magma) [n: n in [0..10000] |IsPrime(n) and IsPrime(30*n-1)and IsPrime(30*n+1)] // _Vincenzo Librandi_, Aug 03 2010

%Y Cf. A001097, A001359, A006512.

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, May 05 2008