login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A034304 Nonprime; becomes prime if any digit is deleted (zeros not allowed in the number). 5
22, 25, 27, 32, 33, 35, 52, 55, 57, 72, 75, 77, 111, 117, 119, 171, 371, 411, 413, 417, 437, 471, 473, 611, 671, 711, 713, 731, 1379, 1397, 1673, 1739, 1937, 1991, 2233, 2277, 2571, 2577, 2811, 3113, 3131, 3173, 3311, 3317, 3479, 4199, 4331, 4433, 4439 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

T. D. Noe and R. Zumkeller, Table of n, a(n) for n = 1..299, first 200 terms from T. D. Noe

MATHEMATICA

With[{nn=5000}, Select[Complement[Range[10, nn], Prime[Range[ PrimePi[ nn]]]], DigitCount[#, 10, 0]==0&&And@@PrimeQ[FromDigits/@Subsets[ IntegerDigits[#], {IntegerLength[#]-1}]]&]] (* Harvey P. Dale, Apr 06 2012 *)

PROG

(Haskell)

a034304 n = a034304_list !! (n-1)

a034304_list = map read $ filter (f "") $

               map show $ dropWhile (< 10) a259315_list :: [Integer] where

   f _ "" = True

   f us (v:vs) = a010051' (read (us ++ vs)) == 1 && f (us ++ [v]) vs

-- Reinhard Zumkeller, Jun 24 2015

CROSSREFS

Cf. A034302-A034305.

Cf. A010051, A259315.

Sequence in context: A177734 A177055 A186780 * A167459 A066737 A121609

Adjacent sequences:  A034301 A034302 A034303 * A034305 A034306 A034307

KEYWORD

base,nonn,nice

AUTHOR

David W. Wilson

EXTENSIONS

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

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified August 23 01:14 EDT 2017. Contains 290953 sequences.