Left- or right-truncatable primes in base 8.
2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 83, 89, 101, 107, 109, 137, 139, 151, 157, 181, 191, 211, 223, 229, 233, 239, 251, 269, 293, 317, 331, 337, 347, 349, 367, 373, 379, 383, 397, 401, 421, 431, 443, 461, 467, 479, 491, 509
1
These numbers must be converted to base 8 and then truncated. For instance, the number 101 is 145(8).
T. D. Noe, Plot of 4283 terms
T. D. Noe, Table of 4283 terms
See references in A137812.
(Mma) b = 8; Clear[s]; n = 0; s[n] = Prime[Range[PrimePi[b-1]]]; While[cnt = 0; lst = Reap[Do[k = s[n][[i]]; Do[p = j*b^(n+1) + k; If[PrimeQ[p], Sow[p]; cnt++], {j, b-1}]; Do[p = b*k + j; If[PrimeQ[p], Sow[p]; cnt++], {j, b-1}], {i, Length[s[n]]}]]; cnt > 0, n++; s[n] = Union[lst[[2,1]]]]; t = s[0]; Do[t = Join[t, s[i]], {i, n}]; t
Cf. A137812 (base 10), S000910-S000916 (bases 9 to 3), S000917.
nonn,base,full
T. D. Noe, Jun 21 2016