OFFSET
1,1
MAPLE
A268859:=n->`if`(isprime(n) and n mod 100 = 21, n, NULL): seq(A268859(n), n=1..5*10^4); # Wesley Ivan Hurt, Apr 02 2016
MATHEMATICA
Select[Table[21 + 100 i, {i, 0, 10^3}], ProvablePrimeQ[#] &]
PROG
(Magma) [n: n in PrimesUpTo(15000) | n mod 100 eq 21]; // Vincenzo Librandi, Feb 15 2016
(PARI) lista(nn) = {for(n=1, nn, if (isprime(p=100*n+21), print1(p, ", ")); ); } \\ Michel Marcus, Feb 20 2016
(Python)
from sympy import isprime
for n in range(421, 15000, 100):
if(isprime(n)):print(n)
# Soumil Mandal, Apr 03 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Soumadeep Ghosh, Feb 14 2016
STATUS
approved