%I #21 Sep 08 2022 08:44:47
%S 3,7,11,17,19,47,67,109,149,151,199,227,233,347,353,359,397,431,457,
%T 487,563,571,577,607,709,809,919,947,997,1013,1033,1069,1103,1117,
%U 1151,1187,1279,1361,1367,1451,1601,1607,1697,1699,1801,1811,1823,1831,1871,1913
%N Primes that remain prime through 2 iterations of function f(x) = 3x + 10.
%C Primes p such that 3*p+10 and 9*p+40 are also primes. - _Vincenzo Librandi_, Aug 04 2010
%H John Cerkan, <a href="/A023249/b023249.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range@ 2000, Times @@ Boole@ PrimeQ@ NestList[3 # + 10 &, #, 2] > 0 &] (* _Michael De Vlieger_, Sep 13 2016 *)
%o (Magma) [n: n in [0..100000] | IsPrime(n) and IsPrime(3*n+10) and IsPrime(9*n+40)] // _Vincenzo Librandi_, Aug 04 2010
%Y Subsequence of A023211.
%K nonn
%O 1,1
%A _David W. Wilson_
|