OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
11 mod 13 = 11, 29 mod 13 = 3, 31 mod 13 = 5, hence 11, 29 and 31 are in the sequence.
MATHEMATICA
f[n_]:=PrimeQ[Mod[n, 13]]; lst={}; Do[p=Prime[n]; If[f[p], AppendTo[lst, p]], {n, 6, 6!}]; lst
Select[Prime[Range[4000]], MemberQ[{2, 3, 5, 7, 11}, Mod[#, 13]]&] (* Vincenzo Librandi, Aug 05 2012 *)
PROG
(PARI) {forprime(p=2, 740, if(isprime(p%13), print1(p, ", ")))} \\ Klaus Brockhaus, Oct 28 2009
(Magma) [ p: p in PrimesUpTo(740) | p mod 13 in {2, 3, 5, 7, 11} ]; // Klaus Brockhaus, Oct 28 2009
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 27 2009
EXTENSIONS
Edited by Klaus Brockhaus and R. J. Mathar, Oct 28 2009 and Oct 29 2009
STATUS
approved