OFFSET
1,1
COMMENTS
Or primes p such that p (mod 105) = {1, 2}.
In terms a(4227)...a(4246) their terminal digits alternate: 1, 7, 1, 7, 1, 7, 1, 7, 1, 7, 1, 7, 1, 7, 1, 7, 1, 7, 1, 7.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[ Prime[ Range[10000]], (Mod[#, 3] == Mod[#, 5] == Mod[#, 7]) &](*Or*)
Select[ Prime[ Range[10000]], 0 < Mod[#, 105] < 3 &]
Select[Prime[Range[10000]], Length[Union[Mod[#, {3, 5, 7}]]]==1&] (* Harvey P. Dale, Oct 11 2019 *)
PROG
(Magma) [p: p in PrimesUpTo(10000) | p mod 3 eq p mod 5 and p mod 5 eq p mod 7]; // Vincenzo Librandi, Jan 17 2016
(PARI) lista(nn) = forprime(p=2, nn, if(p%3 == p%5 && p%5 == p%7, print1(p, ", "))); \\ Altug Alkan, Jan 25 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Mikk Heidemaa, Jan 17 2016
EXTENSIONS
More terms from Vincenzo Librandi, Jan 17 2016
STATUS
approved