%I #21 Sep 08 2022 08:44:47
%S 7,13,19,31,43,73,211,223,241,307,397,409,631,661,727,757,769,829,883,
%T 1123,1741,1783,1867,2131,2143,2269,2287,2467,2521,2551,2857,2917,
%U 3253,3319,3793,3967,4297,4423,4597,4957,5449,5563,5701,6229,6427,6469,6679
%N Primes that remain prime through 2 iterations of the function f(x) = 5x + 8.
%C Primes p such that 5*p+8 and 25*p+48 are also primes. - _Vincenzo Librandi_, Aug 04 2010
%H John Cerkan, <a href="/A023255/b023255.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) == 1 (mod 6). - _John Cerkan_, Sep 14 2016
%t fQ[n_]:=And@@PrimeQ[NestList[5#+8&,n,2]]; Select[Range[7000],fQ] (* _Harvey P. Dale_, Mar 25 2013 *)
%o (Magma) [n: n in [0..100000] | IsPrime(n) and IsPrime(5*n+8) and IsPrime(25*n+48)] // _Vincenzo Librandi_, Aug 04 2010
%Y Subsequence of A023220, A111225.
%K nonn
%O 1,1
%A _David W. Wilson_
|