Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #28 Apr 03 2023 10:36:10
%S 101,113,131,151,181,191,211,311,811,911,1117,1151,1171,1181,1511,
%T 1811,2111,4111,8111,10111,11113,11117,11119,11131,11161,11171,11311,
%U 11411,16111,101111,111119,111121,111191,111211,111611,112111,113111,131111,311111,511111
%N Near-repunit primes.
%C According to the prime glossary "a near-repunit prime is a prime all but one of whose digits are 1." This would also include {2, 3, 5, 7, 13, 17, 19, 31, 41, 61 and 71}, but this sequence only lists terms with more than two digits. - _M. F. Hasler_, Feb 10 2020
%D C. Caldwell and H. Dubner, "The near repunit primes 1(n-k-1)01(1k)," J. Recreational Math., 27 (1995) 35-41.
%D Heleen, J. P., "More near-repunit primes 1(n-k-1)D(1)1(k), D=2,3, ..., 9," J. Recreational Math., 29:3 (1998) 190-195.
%H T. D. Noe, <a href="/A105992/b105992.txt">Table of n, a(n) for n = 1..1000</a>
%H Chris Caldwell, <a href="https://t5k.org/top20/page.php?id=15">The Top 20 Near-repdigit Primes</a>
%H Chris Caldwell, The Prime Glossary, <a href="https://t5k.org/glossary/xpage/nearrepunitprime.html">Near-repunit prime</a>
%e a(2)=113 is a term because 113 is a prime and all digits are 1 except one.
%t lst = {}; Do[r = (10^n - 1)/9; Do[AppendTo[lst, DeleteCases[Select[FromDigits[Permutations[Append[IntegerDigits[r], d]]], PrimeQ], r]], {d, 0, 9}], {n, 2, 14}]; Sort[Flatten[lst]] (* _Arkadiusz Wesolowski_, Sep 20 2011 *)
%Y Cf. A000042, A002275, A004022, A046053, A046413, A065074, A034093, A065083, A102782, A118505.
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Apr 29 2005