A196095 - OEIS

A196095

Prime numbers that cannot become prime by chopping off any of the initial consecutive digits.

11, 19, 29, 31, 41, 59, 61, 71, 79, 89, 101, 109, 139, 149, 151, 181, 191, 199, 239, 251, 269, 281, 349, 401, 409, 421, 439, 449, 491, 499, 509, 521, 569, 599, 601, 691, 701, 709, 739, 751, 769, 809, 821, 839, 881, 991, 1009, 1021, 1039, 1049, 1051, 1069

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

EXAMPLE

139 qualifies because neither 9 nor 39 is prime

MATHEMATICA

Select[Prime[Range[200]], Union[PrimeQ[Table[Mod[#, 10^i], {i, Floor[Log[10, #]]}]]] == {False} &] (* T. D. Noe, Sep 27 2011 *)

cbpQ[n_]:=NoneTrue[Table[FromDigits[Drop[IntegerDigits[n], i]], {i, IntegerLength[ n]-1}], PrimeQ]; Select[Prime[Range[5, 200]], cbpQ] (* The program uses the NoneTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 27 2014 *)

CROSSREFS

Sequence in context: A336403 A123976 A045468 * A268271 A053032 A342961

Adjacent sequences: A196092 A196093 A196094 * A196096 A196097 A196098

KEYWORD

nonn,base

AUTHOR

J. Lowell, Sep 27 2011

EXTENSIONS

More terms from T. D. Noe, Sep 27 2011

STATUS

approved