login
Primes of the form identical digits preceded by an 8.
1

%I #11 Jul 03 2020 13:23:50

%S 83,89,811,877,8111,8999,83333333,89999999,8777777777,

%T 8777777777777777,89999999999999999999,833333333333333333333333,

%U 811111111111111111111111111,833333333333333333333333333333

%N Primes of the form identical digits preceded by an 8.

%H Vincenzo Librandi, <a href="/A090156/b090156.txt">Table of n, a(n) for n = 1..34</a>

%t Select[ FromDigits /@ Flatten[ Table[ PadRight[{8}, i, # ] & /@ {1, 2, 3, 4, 5, 6, 7, 8, 9}, {i, 2, 50}], 1], PrimeQ[ # ] &]

%t Select[Flatten[Table[FromDigits[PadRight[{8},n,k]],{n,2,30},{k,{1,3,7,9}}]],PrimeQ] (* _Harvey P. Dale_, Jul 03 2020 *)

%K nonn,base

%O 1,1

%A _Robert G. Wilson v_, Nov 22 2003