OFFSET
1,1
COMMENTS
Prime numbers p with property that appending any single decimal digit to p does not produce a prime. Prime members of A032352.
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
MAPLE
a:=proc(n) if isprime(n) = true and isprime(10*n+1)=false and isprime(10*n+3)=false and isprime(10*n+5)=false and isprime(10*n+7)=false and isprime(10*n+9)=false then n else fi end: seq(a(n), n=1..1500); # Emeric Deutsch, Jul 24 2006
MATHEMATICA
Select[Prime[Range[1000]], PrimePi[10# + 9] - PrimePi[10# ] == 0 &] (* Stefan Steinerberger, Jul 24 2006 *)
PROG
(PARI) lista(nn) = {forprime(p=2, nn, if (primepi(10*p+9) - primepi(10*p) == 0, print1(p, ", ")); ); } \\ Michel Marcus, Jun 23 2015
(Python)
from sympy import isprime, primerange
def ok(p): s = str(p); return all(not isprime(int(s+d)) for d in "1379")
print(list(filter(ok, primerange(1, 1328)))) # Michael S. Branicky, Aug 08 2021
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Jul 23 2006
EXTENSIONS
More terms sent by several contributors, Jul 23 2006
STATUS
approved