|
%I #22 Sep 08 2022 08:44:47
%S 2,7,17,19,23,61,101,103,409,719,857,997,1297,1531,1699,2399,3253,
%T 3491,4583,4933,5119,5189,5939,6277,6863,7789,8669,9187,9887,10061,
%U 10253,10267,11027,11777,12791,12899,13669,17209,17293,17489,17839,19211,19379
%N Primes that remain prime through 3 iterations of function f(x) = 10x + 3.
%C Primes p such that 10*p+3, 100*p+33 and 1000*p+333 are also primes. - _Vincenzo Librandi_, Aug 04 2010
%H Harvey P. Dale, <a href="/A023300/b023300.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2200]],And@@PrimeQ[NestList[10#+3&,#,3]]&] (* _Harvey P. Dale_, Feb 21 2013 *)
%o (Magma) [n: n in [1..450000] | IsPrime(n) and IsPrime(10*n+3) and IsPrime(100*n+33) and IsPrime(1000*n+333)] // _Vincenzo Librandi_, Aug 04 2010
%K nonn
%O 1,1
%A _David W. Wilson_
|
