A105981 Near-repdigit primes with 3 as repeated digit.
233, 313, 331, 337, 353, 373, 383, 433, 733, 2333, 3313, 3323, 3331, 3343, 3373, 3433, 3533, 3733, 3833, 5333, 7333, 23333, 31333, 33331, 33343, 33353, 33533, 38333, 313333, 323333, 331333, 333233, 333323, 333331, 333337, 333383, 333433, 333533
Offset: 1
Examples
a(2)=313 is a term because all digits are equal to 3 except one.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Table[Sort[Select[FromDigits/@Flatten[Permutations/@Table[PadRight[ {n}, i,3],{n,{1,2,4,5,7,8}}],1],PrimeQ]],{i,3,6}]//Flatten (* Harvey P. Dale, May 17 2017 *)