OFFSET
1,1
COMMENTS
Primes which have a remainder mod 13 that is prime.
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, ", ")))} [From Klaus Brockhaus, Oct 28 2009]
(MAGMA) [ p: p in PrimesUpTo(740) | p mod 13 in {2, 3, 5, 7, 11} ]; [From 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
proposed