%I #17 Sep 08 2022 08:45:17

%S 11,29,41,71,79,139,149,181,251,379,401,431,491,569,659,701,709,809,

%T 821,991,1021,1051,1231,1289,1381,1471,1549,1759,1871,1931,1999,2069,

%U 2221,2251,2381,2459,2591,2671,2711,2909,2939,3301,3371,3499,3511,3539,3709

%N Primes p such that 1*p+18 and 18*p+1 are primes.

%C Subsequence of A153418. - _Michel Marcus_, Dec 27 2014

%t Select[Prime[Range[220]], PrimeQ[18#+1]&&PrimeQ[1#+18]&]

%o (Magma) [p: p in PrimesUpTo(10000)| IsPrime(p+18) and IsPrime(18*p+1)] // _Vincenzo Librandi_, Nov 13 2010

%Y Cf. A153418 (p and p+18 are prime).

%K nonn

%O 1,1

%A _Zak Seidov_, May 07 2005