|
%I #15 Jul 16 2022 11:43:56
%S 19,6949,10111,15727,20149,24799,26041,26881,29587,29947,40213,41203,
%T 44257,46747,47701,49057,50023,51061,55921,66109,66643,73939,76819,
%U 79579,95947,106501,110083,111781,112213,114679
%N Numbers n such that n, 10*n+1, 10*n+3, 10*n+7 and 10*n+9 are all primes.
%C All terms == 1 (mod 6). - _Robert Israel_, Jan 22 2018
%H Robert Israel, <a href="/A067267/b067267.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1)=19 because 191, 193, 197 and 199 are all prime.
%p select(t -> andmap(isprime, [t,10*t+1,10*t+3,10*t+7,10*t+9]), [seq(i,i=1..2*10^5,6)]); # _Robert Israel_, Jan 22 2018
%t okQ[n_]:=Module[{n10=10n},And@@PrimeQ[{n10+1,n10+3,n10+7,n10+9}]]
%t Select[Prime[Range[20000]],okQ] (* _Harvey P. Dale_, Dec 13 2010 *)
%t Select[Prime[Range[11000]],AllTrue[10#+{1,3,7,9},PrimeQ]&] (* _Harvey P. Dale_, Feb 23 2022 *)
%Y Cf. A007811.
%K nonn
%O 1,1
%A Sudipta Das (juitech(AT)vsnl.net), Feb 21 2002
|
