This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A099660 #6 Feb 25 2015 08:59:26
%S A099660 2,7,67,673,6673,66683,666667,6666679,66666667,666666667,6666666757,
%T A099660 66666666667,666666666671,6666666666683,66666666666737,
%U A099660 666666666666719,6666666666666719,66666666666666713,666666666666666773
%N A099660 a(n) is the least prime following A002280[n] repdigits.
%e A099660 n=6: 66 is followed by 67.
%t A099660 Table[NextPrime[6*(10^n-1)/9], {n, 0, 35}]
%t A099660 NextPrime/@Table[FromDigits[PadRight[{},n,6]],{n,0,20}] (* _Harvey P. Dale_, Feb 25 2015 *)
%Y A099660 Cf. A003618, A003617, A096497, A096498, A068104, A002275-A002283, A099656-A099668.
%K A099660 base,nonn
%O A099660 0,1
%A A099660 _Labos Elemer_, Nov 17 2004
%E A099660 First Mathematica program corrected by _Harvey P. Dale_, Feb 25 2015