login
A089720
Primes == 1 or 11 (mod 70).
1
11, 71, 151, 211, 281, 421, 431, 491, 571, 631, 641, 701, 911, 991, 1051, 1061, 1201, 1471, 1481, 1621, 1831, 1901, 2111, 2251, 2311, 2381, 2521, 2531, 2591, 2671, 2731, 2741, 2801, 3011, 3221, 3301, 3361, 3371, 3511, 3571, 3581, 3851, 3931, 4001, 4201
OFFSET
1,1
COMMENTS
Previous name was: Primes p ending in 1 such that floor(p/7) = 0, 1 or 2 (mod 10).
LINKS
MAPLE
select(isprime, [seq(seq(70*i+j, j=[1, 11]), i=0..1000)]); # Robert Israel, Apr 29 2020
MATHEMATICA
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 *)
PROG
(PARI) forprime( p=1, 9999, p%10==1 & p\7%10<3 & print1(p", ")) \\ M. F. Hasler, Apr 06 2009
CROSSREFS
Sequence in context: A162568 A255205 A117047 * A333408 A174202 A139850
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 06 2004
EXTENSIONS
Edited by M. F. Hasler, Apr 06 2009
New name from Robert Israel, Apr 29 2020
STATUS
approved