|
%I #22 Sep 08 2022 08:44:47
%S 29,139,1129,1409,2339,2939,3389,4549,7309,10009,10039,11489,12539,
%T 13859,15259,17159,17569,20939,22079,24229,24509,27799,28099,29339,
%U 30029,32059,33599,34469,37379,37619,39419,41579,42359,44549,52919,55259,57679,58109
%N Primes that remain prime through 3 iterations of function f(x) = 3x + 2.
%C Primes p such that 3*p+2, 9*p+8 and 27*p+26 are also primes. - _Vincenzo Librandi_, Aug 04 2010
%H Harvey P. Dale, <a href="/A023277/b023277.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[6000]],AllTrue[Rest[NestList[3#+2&,#,3]],PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 25 2015 *)
%o (Magma) [n: n in [1..100000] | IsPrime(n) and IsPrime(3*n+2) and IsPrime(9*n+8) and IsPrime(27*n+26)] // _Vincenzo Librandi_, Aug 04 2010
%K nonn
%O 1,1
%A _David W. Wilson_
|
