A090725 Primes whose representation in base 16 has no alphabetic characters.
2, 3, 5, 7, 17, 19, 23, 37, 41, 53, 67, 71, 73, 83, 89, 97, 101, 103, 113, 131, 137, 149, 151, 257, 263, 277, 281, 293, 307, 311, 313, 337, 353, 359, 373, 389, 401, 409, 521, 547, 563, 569, 577, 593, 599, 601, 613, 617, 631, 641, 643, 647, 659, 661, 769, 773
Offset: 1
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A102489.
Programs
-
Mathematica
Select[Prime[Range[400]], Max[IntegerDigits[#, 16]] < 10 & ] (* Zak Seidov, Mar 04 2016 *)
-
PARI
isok(n) = isprime(n) && (vecmax(digits(n, 16)) < 10); \\ Michel Marcus, Mar 05 2016
Extensions
Better definition from Omar E. Pol, Dec 24 2008
Comments