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 A070746 #27 Jun 22 2018 08:09:14
%S A070746 1,7,709,2203,4481,5107,11489
%N A070746 Numbers k such that k 1's followed by k is a prime.
%C A070746 The number corresponding to a(3) has been certified prime with Primo; those corresponding to a(4), a(5), a(6) are probable primes.
%C A070746 a(8) > 147000, if it exists. - _Giovanni Resta_, Jun 22 2018
%e A070746 7 is in the sequence because 11111117 (seven 1's followed by 7) is prime.
%t A070746 Do[ If[ PrimeQ[ FromDigits[ Join[ IntegerDigits[(10^n - 1)/9], IntegerDigits[n]]]], Print[n]], {n, 1, 2000, 2}]
%o A070746 (WinPFGW) Primality testing r(5107)*10^len(5107)+5107 [N-1/N+1, Brillhart-Lehmer-Selfridge] r(5107)*10^len(5107)+5107 is Fermat and Lucas PRP! (79 seconds). - _Jason Earls_
%o A070746 (PARI) isok(n) = isprime(eval(concat(apply(x->Str(x), vector(n+1, j, if (j>n, n, 1)))))) \\ _Michel Marcus_, Jun 15 2018
%Y A070746 Cf. A068817, A084428.
%K A070746 base,nonn,more
%O A070746 1,2
%A A070746 _Robert G. Wilson v_, May 03 2002
%E A070746 a(4) from _Jason Earls_, May 06 2002
%E A070746 a(5) from _Rick L. Shepherd_, Sep 02 2002
%E A070746 a(6) from _Farideh Firoozbakht_, Jun 29 2003
%E A070746 a(7) from _Farideh Firoozbakht_, Jul 04 2003
%E A070746 Edited by _T. D. Noe_, Oct 30 2008