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
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