A034303 Zeroless primes that become nonprime if any digit is deleted.

11, 19, 41, 61, 89, 227, 251, 257, 277, 281, 349, 449, 499, 521, 557, 577, 587, 727, 757, 787, 821, 827, 857, 877, 881, 887, 991, 1117, 1129, 1171, 1187, 1259, 1289, 1423, 1447, 1453, 1471, 1483, 1543, 1553, 1559, 1583, 1621, 1669, 1721, 1741, 1747

Offset: 1

Author

David W. Wilson

Keywords

• base
• nonn
• nice

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A034302, A034304, A034305.

Cf. A010051, A038618.

Programs

Haskell

import Data.List (inits, tails)
a034303 n = a034303_list !! (n-1)
a034303_list = filter f $ drop 4 a038618_list where
   f x = all (== 0) $ map (a010051 . read) $
             zipWith (++) (inits $ show x) (tail $ tails $ show x)
-- Reinhard Zumkeller, Dec 17 2011

Mathematica

Select[Prime[Range[5,300]],Union[PrimeQ[FromDigits/@Table[Delete[ IntegerDigits[ #], n],{n,IntegerLength[#]}]]] == {False} && !MemberQ[ IntegerDigits[#],0]&] (* Harvey P. Dale, Jan 09 2014 *)

Extensions

Definition corrected by T. D. Noe, Apr 02 2008

Name edited by Jon E. Schoenfield, Feb 07 2022