|
%I #4 Oct 15 2013 22:32:35
%S 2,5,37,337,3343,33343,333337,3333373,33333347,333333349,3333333403,
%T 33333333343,333333333367,3333333333347,33333333333437,
%U 333333333333389,3333333333333343,33333333333333391,333333333333333391
%N a(n) is the least prime following A002277[n] repdigits.
%e n=3: 33 is followed by 37.
%t Table[Table[NextPrime[3*(10^n-1)/9], {n, 0, 35}]
%Y Cf. A003618, A003617, A096497, A096498, A068104, A002275-A002283, A099656-A099668.
%K base,nonn
%O 0,1
%A _Labos Elemer_, Nov 17 2004
|
