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

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,1

Comments

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.

Links

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

Mathematica

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 *)

Crossrefs

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

Sequence in context: A299391 A299192 A300028 * A107141 A139849 A139911

Adjacent sequences: A322475 A322476 A322477 * A322479 A322480 A322481

Keyword

nonn,base,easy

Author

Robert Price, Dec 09 2018

Status

approved