A178552 Primes with exactly three 3's.
2333, 3313, 3323, 3331, 3343, 3373, 3433, 3533, 3733, 3833, 5333, 7333, 10333, 13033, 13313, 13331, 13337, 13339, 13633, 13933, 16333, 17333, 19333, 20333, 23339, 23633, 23833, 29333, 30133, 30313, 30323, 31033, 31337, 31393, 32233, 32303, 32323, 32353, 32363, 32533
Offset: 1
Links
- Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Prime[Range[3500]],Count[IntegerDigits[#],3]==3 &] (* Stefano Spezia, Aug 29 2025 *)
Extensions
Missing a(26) = 23633 and a(27) = 23833 inserted by Daniel Starodubtsev, Mar 14 2020