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