OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MAPLE
select(isprime, [13+100*n $ n=0..1000]); # Robert Israel, Jul 06 2014
MATHEMATICA
Select[Prime[Range[5, 2000]], Take[IntegerDigits[#], -2]=={1, 3}&]
PROG
(Magma) [n: n in PrimesUpTo(14000) | n mod 100 eq 13];
(PARI) select(x->(x % 100)==13, primes(2000)) \\ Michel Marcus, Jul 06 2014
(Sage) [p for p in primes(14000) if mod(p, 100) == 13] # Bruno Berselli, Jul 07 2014
CROSSREFS
Cf. Prime numbers ending in the prime number k: A030431 (k=3), A030432 (k=7), A167442 (k=11), this sequence (k=13), A244764 (k=17), A244765 (k=19), A244766 (k=23), A244767 (k=29), A167388 (k=31), A244768 (k=37), A167443 (k=41), A244769 (k=43), A244770 (k=47), A244771 (k=53), A244772 (k=59), A167445 (k=61), A244773 (k=67), A167441 (k=71), A244774 (k=73), A244775 (k=79), A244776 (k=83), A244777 (k=89), A244778 (k=97), A167626 (k=101), A167627 (k=163).
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Jul 06 2014
STATUS
approved