The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A224319 Primes without "1" as a digit that remain prime when any single digit is replaced with "1". 3
 37, 43, 47, 67, 73, 79, 337, 409, 439, 499, 607, 709, 3637, 3709, 4877, 6997, 7487, 9433, 76963, 334777 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS No more terms < 10^13. LINKS Table of n, a(n) for n=1..20. Carlos Rivera, Puzzle 591 MATHEMATICA lst = {}; n = 1; Do[If[PrimeQ[p], i = IntegerDigits[p]; If[FreeQ[i, n], t = 0; s = IntegerLength[p]; Do[If[PrimeQ@FromDigits@Insert[Drop[i, {d}], n, d], t++, Break[]], {d, s}]; If[t == s, AppendTo[lst, p]]]], {p, 334777}]; lst CROSSREFS Cf. A224320-A224322. Subsequence of A038603. Sequence in context: A217411 A155849 A295154 * A282111 A110563 A178777 Adjacent sequences: A224316 A224317 A224318 * A224320 A224321 A224322 KEYWORD base,more,nonn AUTHOR Arkadiusz Wesolowski, Apr 03 2013 STATUS approved

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

Last modified March 4 14:06 EST 2024. Contains 370532 sequences. (Running on oeis4.)