%I #21 Sep 08 2022 08:44:47
%S 5333,26669,294167,324869,344189,578297,676829,807407,894893,1078559,
%T 1114427,1174487,1624349,1883363,2247923,2926769,3075029,3196871,
%U 3427871,3558407,4037039,4205879,5392799,6130823,6479423,6714497,6750113,6915299
%N Primes that remain prime through 5 iterations of function f(x) = 5x + 4.
%C Primes p such that 5*p+4, 25*p+24, 125*p+124, 625*p+624 and 3125*p+3124 are also primes. - _Vincenzo Librandi_, Aug 05 2010
%H John Cerkan, <a href="/A023342/b023342.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) == 41 (mod 42). - _John Cerkan_, Oct 20 2016
%t Select[Prime[Range[500000]],AllTrue[Rest[NestList[5#+4&,#,5]],PrimeQ]&] (* _Harvey P. Dale_, Jan 01 2022 *)
%o (Magma) [n: n in [1..10000000] | IsPrime(n) and IsPrime(5*n+4) and IsPrime(25*n+24) and IsPrime(125*n+124) and IsPrime(625*n+624) and IsPrime(3125*n+3124)] // _Vincenzo Librandi_, Aug 05 2010
%Y Subsequence of A023218, A023253, A023284, A023314, and A024897.
%K nonn
%O 1,1
%A _David W. Wilson_
|