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,1

Links

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

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 *)

Prog

(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

Crossrefs

Cf. A034302, A034304, A034305.

Cf. A010051, A038618.

Sequence in context: A034844 A092627 A152313 * A293166 A140506 A259190

Adjacent sequences: A034300 A034301 A034302 * A034304 A034305 A034306

Keyword

base,nonn,nice

Author

David W. Wilson

Extensions

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

Name edited by Jon E. Schoenfield, Feb 07 2022

Status

approved