%I #19 Apr 30 2020 03:24:58
%S 11,71,151,211,281,421,431,491,571,631,641,701,911,991,1051,1061,1201,
%T 1471,1481,1621,1831,1901,2111,2251,2311,2381,2521,2531,2591,2671,
%U 2731,2741,2801,3011,3221,3301,3361,3371,3511,3571,3581,3851,3931,4001,4201
%N Primes == 1 or 11 (mod 70).
%C Previous name was: Primes p ending in 1 such that floor(p/7) = 0, 1 or 2 (mod 10).
%H Robert Israel, <a href="/A089720/b089720.txt">Table of n, a(n) for n = 1..10000</a>
%p select(isprime, [seq(seq(70*i+j, j=[1,11]),i=0..1000)]); # _Robert Israel_, Apr 29 2020
%t okQ[n_]:=Mod[n,10]==1&&MemberQ[{0,1,2},Mod[Floor[n/7],10]]; Select[Prime[ Range[600]],okQ] (* _Harvey P. Dale_, Oct 16 2012 *)
%o (PARI) forprime( p=1,9999, p%10==1 & p\7%10<3 & print1(p",")) \\ _M. F. Hasler_, Apr 06 2009
%K nonn
%O 1,1
%A _Roger L. Bagula_, Jan 06 2004
%E Edited by _M. F. Hasler_, Apr 06 2009
%E New name from _Robert Israel_, Apr 29 2020