A089346 Primes of the form identical odd digits followed by a 1.
11, 31, 71, 331, 991, 3331, 33331, 99991, 333331, 3333331, 9999991, 33333331, 555555555551, 5555555555551, 7777777777771, 333333333333333331, 1111111111111111111, 77777777777777777771, 11111111111111111111111
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..44
Programs
-
Mathematica
Select[FromDigits/@Flatten[Table[Join[PadLeft[{n},i,n],{1}],{i,25},{n,1,9,2}], 1],PrimeQ] (* Harvey P. Dale, Jul 25 2011 *)
Extensions
More terms from Ray Chandler, Nov 07 2003