%I #12 Oct 06 2019 19:41:06

%S 11,13,17,19,101,103,107,109,191,193,197,199,211,223,227,229,461,463,

%T 467,479,821,823,827,829,1301,1303,1307,1319,1481,1483,1487,1489,1871,

%U 1873,1877,1879,2081,2083,2087,2089,3251,3253,3257,3259

%N Four consecutive primes whose 'last digit cycle' equals {1,3,7,9}.

%H Harvey P. Dale, <a href="/A032591/b032591.txt">Table of n, a(n) for n = 0..1000</a>

%e Read in groups of 4: (11,13,17,19); (101,103,107,109); (191,193,197,199); ...

%t Flatten[Select[Partition[Prime[Range[500]],4,1],Mod[#,10]=={1,3,7,9}&]] (* _Harvey P. Dale_, Jun 05 2015 *)

%Y Cf. A032592, A007530.

%K nonn,base

%O 0,1

%A _Patrick De Geest_, Apr 15 1998