A089720 Primes == 1 or 11 (mod 70).

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

Robert Israel, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A089717 A089718 A089719 * A089721 A089722 A089723

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