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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A057877 a(n) = smallest n-digit prime in A057876. 2
23, 113, 1531, 12239, 111317, 1111219, 11119291, 111111197, 1111113173, 11111133017, 111111189919, 1111111411337, 11111111161177, 111111111263311, 1111111111149119, 11111111111179913, 111111111111118771, 1111111111111751371, 11111111111111111131, 111111111111113129773, 1111111111111111337111 (list; graph; refs; listen; history; text; internal format)
OFFSET

2,1

LINKS

Table of n, a(n) for n=2..22.

EXAMPLE

1531 gives primes 53, 131 and 151 after dropping digits 1, 5 and 3.

MAPLE

filter:= proc(n) local L, d, Lp;

  if not isprime(n) then return false fi;

  L:= convert(n, base, 10);

  for d in convert(L, set) do

    Lp:= subs(d=NULL, L);

    if Lp=[] or Lp[-1] = 0 then return false fi;

    if not isprime(add(Lp[i]*10^(i-1), i=1..nops(Lp))) then return false fi;

  od;

  true

end proc:

Res:= NULL:

for t from 1 to 21 do

  for x from (10^(t+1)-1)/9 by 2 do

    if filter(x) then Res:= Res, x; break fi

  od

od:

Res; # Robert Israel, Jul 13 2018

MATHEMATICA

Do[k = (10^n - 1)/9; While[d = IntegerDigits[k]; !PrimeQ[k] || !PrimeQ[ FromDigits[ DeleteCases[d, 0]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 1]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 2]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 3]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 4]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 5]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 6]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 7]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 8]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 9]]], k++ ]; Print[k], {n, 2, 19}]

CROSSREFS

Cf. A057876, A057877, A057878, A057879, A057880, A057881, A057882, A057883, A051362, A034302, A034303, A034304, A034305.

Sequence in context: A288751 A070024 A111943 * A302530 A156568 A042026

Adjacent sequences:  A057874 A057875 A057876 * A057878 A057879 A057880

KEYWORD

base,nonn

AUTHOR

Patrick De Geest, Oct 15 2000

EXTENSIONS

Extended by Robert G. Wilson v, Dec 17 2002

More terms from Robert Israel, Jul 13 2018

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 24 22:41 EDT 2019. Contains 326314 sequences. (Running on oeis4.)