%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