%I #11 Dec 15 2021 16:00:07
%S 2,3,23,223,2237,22229,222247,2222239,22222223,222222227,2222222243,
%T 22222222223,222222222301,2222222222243,22222222222229,
%U 222222222222227,2222222222222281,22222222222222301,222222222222222281
%N a(n) is the least prime following A002276(n) repdigits.
%H Robert Israel, <a href="/A099656/b099656.txt">Table of n, a(n) for n = 0..999</a>
%e n=2: 22 is followed by 23.
%p seq(nextprime(2*(10^i-1)/9), i=0..20); # _Robert Israel_, Aug 25 2017
%t Table[Table[NextPrime[2*(10^n-1)/9], {n, 0, 35}]
%t Table[ NextPrime[2*(10^n - 1)/9], {n, 0, 18}] (* _Robert G. Wilson v_, Nov 20 2004 *)
%t Table[NextPrime[FromDigits[PadRight[{},n,2]]],{n,0,20}] (* _Harvey P. Dale_, Dec 15 2021 *)
%Y Cf. A003618, A003617, A096497, A096498, A068104, A002275-A002283.
%K base,nonn
%O 0,1
%A _Labos Elemer_, Nov 17 2004
|