A096235 -id:A096235 - cp's OEIS frontend

A321701 Primes that are not base-5 deletable primes (written in base 10).

5, 29, 31, 41, 43, 83, 101, 109, 127, 131, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 199, 211, 223, 229, 233, 241, 251, 257, 277, 281, 283, 293, 313, 331, 349, 383, 401, 409, 419, 421, 431, 433, 443, 457, 461, 463, 467, 491, 499, 509, 521, 541, 577, 587, 593, 599

Offset: 1

Robert Price, Nov 17 2018

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime.
Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.
Complement of all primes and A321700.

Robert Price, Table of n, a(n) for n = 1..31550

Cf. A080608, A080603, A096235-A096246, A321657.

b = 5; d = {};
p = Select[Range[2, 10000], PrimeQ[#] &];
For[i = 1, i <= Length[p], i++,
  c = IntegerDigits[p[[i]], b];
  If[Length[c] == 1, AppendTo[d, p[[i]]]; Continue[]];
  For[j = 1, j <= Length[c], j++,
   t = Delete[c, j];
   If[t[[1]] == 0, Continue[]];
If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; Break[]]]]; Complement[Table[Prime[n], {n, PrimePi[Last[d]]}], d] (* Robert Price, Dec 06 2018 *)

A322172 Primes that are not base-7 deletable primes (written in base 10).

Original entry on oeis.org

7, 11, 13, 29, 43, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 107, 109, 113, 127, 151, 157, 173, 179, 181, 193, 197, 211, 229, 239, 257, 269, 271, 277, 281, 283, 307, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499

Offset: 1

Robert Price, Nov 29 2018

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime.
Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.
Complement of all primes and A321910.

Robert Price, Table of n, a(n) for n = 1..10286

Cf. A080608, A080603, A096235-A096246, A321657.

b = 7; d = {};
p = Select[Range[2, 10000], PrimeQ[#] &];
For[i = 1, i <= Length[p], i++,
  c = IntegerDigits[p[[i]], b];
  If[Length[c] == 1, AppendTo[d, p[[i]]]; Continue[]];
  For[j = 1, j <= Length[c], j++,
   t = Delete[c, j];
   If[t[[1]] == 0, Continue[]];
If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; Break[]]]]; Complement[Table[Prime[n], {n, PrimePi[Last[d]]}], d] (* Robert Price, Dec 06 2018 *)

A322174 Primes that are not base-6 deletable primes (written in base 10).

Original entry on oeis.org

7, 37, 43, 61, 151, 223, 229, 241, 271, 277, 307, 331, 337, 349, 367, 523, 691, 709, 733, 863, 907, 1009, 1033, 1051, 1069, 1103, 1109, 1123, 1223, 1231, 1249, 1283, 1289, 1297, 1301, 1303, 1321, 1327, 1381, 1423, 1429, 1447, 1471, 1483, 1531, 1549, 1567, 1597, 1621, 1627, 1657, 1663, 1741

Offset: 1

Robert Price, Nov 29 2018

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime.
Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.
Complement of all primes and A322173.

Robert Price, Table of n, a(n) for n = 1..1258

Cf. A080608, A080603, A096235-A096246, A321657.

b = 6; d = {};
p = Select[Range[2, 10000], PrimeQ[#] &];
For[i = 1, i <= Length[p], i++,
  c = IntegerDigits[p[[i]], b];
  If[Length[c] == 1, AppendTo[d, p[[i]]]; Continue[]];
  For[j = 1, j <= Length[c], j++,
   t = Delete[c, j];
   If[t[[1]] == 0, Continue[]];
If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; Break[]]]]; Complement[Table[Prime[n], {n, PrimePi[Last[d]]}], d] (* Robert Price, Dec 06 2018 *)

A322444 Primes that are not base-8 deletable primes (written in base 10).

Original entry on oeis.org

71, 73, 79, 97, 103, 113, 127, 149, 173, 193, 227, 241, 257, 263, 271, 281, 283, 307, 311, 313, 409, 419, 433, 439, 449, 457, 463, 487, 503, 521, 569, 577, 587, 593, 599, 607, 617, 631, 641, 647, 653, 661, 673, 701, 727, 733, 739, 743, 757, 769, 823, 827, 839, 881, 887, 907, 911, 919, 929

Offset: 1

Robert Price, Dec 08 2018

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime.
Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.
Complement of all primes and A322443 .

Robert Price, Table of n, a(n) for n = 1..660

Cf. A080608, A080603, A096235-A096246, A321657.

b = 8; d = {};
p = Select[Range[2, 10000], PrimeQ[#] &];
For[i = 1, i <= Length[p], i++,
c = IntegerDigits[p[[i]], b];
If[Length[c] == 1, AppendTo[d, p[[i]]]; Continue[]];
For[j = 1, j <= Length[c], j++,
t = Delete[c, j];
If[t[[1]] == 0, Continue[]];
If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; Break[]]]]; Complement[Table[Prime[n], {n, PrimePi[Last[d]]}], d] (* Robert Price, Dec 08 2018 *)

A322472 Primes that are not base-9 deletable primes (written in base 10).

Original entry on oeis.org

13, 17, 37, 73, 89, 97, 109, 113, 127, 131, 139, 149, 151, 157, 197, 227, 251, 257, 271, 277, 293, 307, 311, 313, 337, 359, 379, 397, 409, 419, 421, 433, 439, 457, 463, 487, 499, 503, 521, 523, 541, 569, 577, 587, 599, 601, 613, 617, 619, 631, 653, 661, 683, 733, 739, 743, 757, 761

Offset: 1

Robert Price, Dec 09 2018

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime.
Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.
Complement of all primes and A322471.

Robert Price, Table of n, a(n) for n = 1..889

Cf. A080608, A080603, A096235-A096246, A321657.

b = 9; d = {};
p = Select[Range[2, 10000], PrimeQ[#] &];
For[i = 1, i <= Length[p], i++,
c = IntegerDigits[p[[i]], b];
If[Length[c] == 1, AppendTo[d, p[[i]]]; Continue[]];
For[j = 1, j <= Length[c], j++,
t = Delete[c, j];
If[t[[1]] == 0, Continue[]];
If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; Break[]]]]; Complement[Table[Prime[n], {n, PrimePi[Last[d]]}], d] (* Robert Price, Dec 09 2018 *)

A322476 Primes that are not base-11 deletable primes (written in base 10).

Original entry on oeis.org

11, 17, 19, 53, 67, 89, 97, 103, 107, 109, 127, 131, 137, 139, 157, 163, 173, 179, 181, 191, 193, 197, 199, 223, 227, 229, 239, 241, 269, 277, 281, 307, 311, 379, 383, 397, 401, 419, 421, 431, 443, 449, 463, 467, 491, 499, 503, 541, 547, 569, 571, 577, 587, 593, 599, 601, 607, 613

Offset: 1

Robert Price, Dec 09 2018

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime.
Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.
Complement of all primes and A322475.

Robert Price, Table of n, a(n) for n = 1..890

Cf. A080608, A080603, A096235-A096246, A321657.

b = 11; d = {};
p = Select[Range[2, 10000], PrimeQ[#] &];
For[i = 1, i <= Length[p], i++,
c = IntegerDigits[p[[i]], b];
If[Length[c] == 1, AppendTo[d, p[[i]]]; Continue[]];
For[j = 1, j <= Length[c], j++,
t = Delete[c, j];
If[t[[1]] == 0, Continue[]];
If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; Break[]]]]; Complement[Table[Prime[n], {n, PrimePi[Last[d]]}], d] (* Robert Price, Dec 09 2018 *)

A322478 Primes that are not base-12 deletable primes (written in base 10).

Original entry on oeis.org

13, 73, 97, 109, 157, 193, 241, 313, 337, 397, 409, 421, 431, 577, 601, 631, 661, 673, 691, 797, 877, 929, 937, 941, 1009, 1019, 1021, 1033, 1063, 1093, 1103, 1117, 1123, 1129, 1151, 1153, 1201, 1249, 1297, 1303, 1307, 1321, 1381, 1429, 1439, 1453, 1489, 1549, 1597, 1609, 1619, 1657, 1693, 1741

Offset: 1

Robert Price, Dec 09 2018

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime.
Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.
Complement of all primes and A322477.

Robert Price, Table of n, a(n) for n = 1..319

Cf. A080608, A080603, A096235-A096246, A321657.

b = 12; d = {};
p = Select[Range[2, 10000], PrimeQ[#] &];
For[i = 1, i <= Length[p], i++,
c = IntegerDigits[p[[i]], b];
If[Length[c] == 1, AppendTo[d, p[[i]]]; Continue[]];
For[j = 1, j <= Length[c], j++,
t = Delete[c, j];
If[t[[1]] == 0, Continue[]];
If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; Break[]]]]; Complement[Table[Prime[n], {n, PrimePi[Last[d]]}], d] (* Robert Price, Dec 09 2018 *)

A096237 Number of n-digit base-4 deletable primes.

Original entry on oeis.org

2, 3, 9, 26, 75, 213, 615, 1853, 5854, 18664, 61248, 205300, 698575, 2409598, 8408050, 29657194

Offset: 1

Michael Kleber, Feb 28 2003

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime. "Digit" means digit in base b.

Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.

Cf. A080608, A080603, A096235-A096246.

b = 4; a = {2}; d = {2, 3};
For[n = 2, n <= 8, n++,
  p = Select[Range[b^(n - 1), b^n - 1], PrimeQ[#] &];
  ct = 0;
  For[i = 1, i <= Length[p], i++,
   c = IntegerDigits[p[[i]], b];
   For[j = 1, j <= n, j++,
    t = Delete[c, j];
    If[t[[1]] == 0, Continue[]];
    If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; ct++;
     Break[]]]];
  AppendTo[a, ct]];
a (* Robert Price, Nov 12 2018 *)

from sympy import isprime
from sympy.ntheory.digits import digits
def ok(n, prevset, base=4):
    if not isprime(n): return False
    s = "".join(str(d) for d in digits(n, base)[1:])
    si = (s[:i]+s[i+1:] for i in range(len(s)))
    return any(t[0] != '0' and int(t, base) in prevset for t in si)
def afind(terms):
    alst = [2]
    s, snxt, base = {2, 3}, set(), 4
    print(len(s), end=", ")
    for n in range(2, terms+1):
        for i in range(base**(n-1), base**n):
            if ok(i, s):
                snxt.add(i)
        s, snxt = snxt, set()
        print(len(s), end=", ")
afind(10) # Michael S. Branicky, Jan 17 2022

a(6)-a(15) from Ryan Propper, Jul 19 2005

a(16) from Michael S. Branicky, Jan 17 2022

A096238 Number of n-digit base-5 deletable primes.

Original entry on oeis.org

2, 6, 14, 32, 69, 156, 377, 855, 2072, 5131, 12922, 32619, 83945, 217305, 571560, 1517012, 4056107

Offset: 1

Michael Kleber, Feb 28 2003

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime. "Digit" means digit in base b.

Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.

Cf. A080608, A080603, A096235-A096246.

b = 5; a = {2}; d = {2, 3};
For[n = 2, n <= 8, n++,
  p = Select[Range[b^(n - 1), b^n - 1], PrimeQ[#] &];
  ct = 0;
  For[i = 1, i <= Length[p], i++,
   c = IntegerDigits[p[[i]], b];
   For[j = 1, j <= n, j++,
    t = Delete[c, j];
    If[t[[1]] == 0, Continue[]];
    If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; ct++;
     Break[]]]];
  AppendTo[a, ct]];
a (* Robert Price, Nov 12 2018 *)

12 more terms from Ryan Propper, Jul 19 2005

A096239 Number of n-digit base-6 deletable primes.

Original entry on oeis.org

3, 7, 32, 135, 597, 2787, 13374, 66071, 335895, 1743974, 9216391, 49420750, 268312356

Offset: 1

Michael Kleber, Feb 28 2003

A prime p is a base-b deletable prime if when written in base b it has the property that removing some digit leaves either the empty string or another deletable prime. "Digit" means digit in base b.

Deleting a digit cannot leave any leading zeros in the new string. For example, deleting the 2 in 2003 to obtain 003 is not allowed.

Cf. A080608, A080603, A096235-A096246.

b = 6; a = {3}; d = {2, 3, 5};
For[n = 2, n <= 5, n++,
  p = Select[Range[b^(n - 1), b^n - 1], PrimeQ[#] &];
  ct = 0;
  For[i = 1, i <= Length[p], i++,
   c = IntegerDigits[p[[i]], b];
   For[j = 1, j <= n, j++,
    t = Delete[c, j];
    If[t[[1]] == 0, Continue[]];
    If[MemberQ[d, FromDigits[t, b]], AppendTo[d, p[[i]]]; ct++;
     Break[]]]];
  AppendTo[a, ct]];
a (* Robert Price, Nov 12 2018 *)

from sympy import isprime
from sympy.ntheory.digits import digits
def ok(n, prevset, base=6):
    if not isprime(n): return False
    s = "".join(str(d) for d in digits(n, base)[1:])
    si = (s[:i]+s[i+1:] for i in range(len(s)))
    return any(t[0] != '0' and int(t, base) in prevset for t in si)
def afind(terms):
    alst = [3]
    s, snxt, base = {2, 3, 5}, set(), 6
    print(len(s), end=", ")
    for n in range(2, terms+1):
        for i in range(base**(n-1), base**n):
            if ok(i, s):
                snxt.add(i)
        s, snxt = snxt, set()
        print(len(s), end=", ")
afind(8) # Michael S. Branicky, Jan 17 2022

a(6)-a(11) from Ryan Propper, Jul 19 2005

a(12)-a(13) from Michael S. Branicky, Jan 17 2022

cp's OEIS Frontend

A321701 Primes that are not base-5 deletable primes (written in base 10).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A322172 Primes that are not base-7 deletable primes (written in base 10).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A322174 Primes that are not base-6 deletable primes (written in base 10).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A322444 Primes that are not base-8 deletable primes (written in base 10).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A322472 Primes that are not base-9 deletable primes (written in base 10).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A322476 Primes that are not base-11 deletable primes (written in base 10).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A322478 Primes that are not base-12 deletable primes (written in base 10).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A096237 Number of n-digit base-4 deletable primes.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Python

Extensions

A096238 Number of n-digit base-5 deletable primes.

Views

Author

Keywords

Comments

Crossrefs