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

 

Logo
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
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
KEYWORD
base,more,nonn
AUTHOR
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.

License Agreements, Terms of Use, Privacy Policy. .

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