A090156 Primes of the form identical digits preceded by an 8.

83, 89, 811, 877, 8111, 8999, 83333333, 89999999, 8777777777, 8777777777777777, 89999999999999999999, 833333333333333333333333, 811111111111111111111111111, 833333333333333333333333333333

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..34

Mathematica

Select[ FromDigits /@ Flatten[ Table[ PadRight[{8}, i, # ] & /@ {1, 2, 3, 4, 5, 6, 7, 8, 9}, {i, 2, 50}], 1], PrimeQ[ # ] &]
Select[Flatten[Table[FromDigits[PadRight[{8}, n, k]], {n, 2, 30}, {k, {1, 3, 7, 9}}]], PrimeQ] (* Harvey P. Dale, Jul 03 2020 *)

Crossrefs

Sequence in context: A062677 A284292 A045714 * A220121 A335916 A158719

Adjacent sequences: A090153 A090154 A090155 * A090157 A090158 A090159

Keyword

nonn,base

Author

Robert G. Wilson v, Nov 22 2003

Status

approved