A168439 Near-repdigit primes with 3 as the repeated digit, and either 2 or 4 as the single digit in base 10.
23, 43, 233, 433, 2333, 3323, 3343, 3433, 23333, 33343, 323333, 333233, 333323, 333433, 334333, 343333, 3233333, 3333233, 3333433, 3433333, 32333333, 33323333, 34333333, 333233333, 333334333, 3233333333, 3333323333, 3333332333, 3333333323, 3334333333, 23333333333, 33333333343, 333332333333, 333333333323, 333333343333, 3333333333433, 3433333333333, 33332333333333, 33333233333333, 33333333332333, 33333333333323, 33333333433333
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1608 (All terms having 401 or fewer digits)
Programs
-
Mathematica
(* First run the programs for A168438 and A138974 *) Take[Union[A168438, A138974], 40] Select[Flatten[Table[FromDigits/@Permutations[Join[{m},PadRight[{},n,3]]],{n,14},{m,{2,4}}]],PrimeQ]//Sort (* Harvey P. Dale, Oct 08 2018 *)
Extensions
a(1)-a(28) verified and a(29)-a(42) added by Alonso del Arte, Dec 15 2009
Comments