%I #7 Jun 26 2023 06:03:07
%S 4,1,1,13,676,283,14311,12022,27346,14965,3427,100942,12370,1237,3274,
%T 42382,18619,4570,457,434869,203362,305491,213742,436831,217198,
%U 168586,258214,215737,1312441,272848,744082,2059111,351055,712333,1880302
%N Least k such that k*10^n+1, k*10^n+3, k*10^n+7 and k*10^n+9 are all prime.
%H Sean A. Irvine, <a href="/A064281/b064281.txt">Table of n, a(n) for n = 0..50</a>
%t Do[k = 1; While[ !PrimeQ[k*10^n + 1] || !PrimeQ[k*10^n + 3] || !PrimeQ[k*10^n + 7] || !PrimeQ[k*10^n + 9], k++ ]; Print[k], {n, 0, 20} ]
%K nonn
%O 0,1
%A _Robert G. Wilson v_, Oct 14 2001
|