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 A158277 #14 May 20 2017 22:49:47
%S A158277 599,2999,3299,4799,5099,6299,8999,10499,11699,21599,25799,26699,
%T A158277 29399,33599,34499,36899,37199,42899,44699,47699,49199,56099,57899,
%U A158277 60899,63599,65099,65699,70199,74099,81899,83399,85199,88799,92399,97499,100799,101999,102299
%N A158277 The lesser of twin prime pairs with each prime in a different century.
%C A158277 The sequence is conjecturally infinite; note that those ending in 999 straddle millenia: A158861.
%C A158277 Since any prime greater than 3 is congruent to 1 or 5 modulo 6, a(n)+1 is divisible by 300 (see A001359). - _Hartmut F. W. Hoft_, May 18 2017
%H A158277 Harvey P. Dale, <a href="/A158277/b158277.txt">Table of n, a(n) for n = 1..1000</a>
%t A158277 Select[Range[100,110000,100],AllTrue[#+{1,-1},PrimeQ]&]-1 (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Oct 21 2016 *)
%t A158277 a158277[n_] := Map[Last, Select[Map[{NextPrime[#, 1], NextPrime[#, -1]}&, Range[100, n, 100]], First[#]-Last[#]==2&]]
%t A158277 a158277[105000] (* data *) (* _Hartmut F. W. Hoft_, May 18 2017 *)
%Y A158277 Cf. A060229, A158861, A001359, A060229.
%K A158277 nonn
%O A158277 1,1
%A A158277 _Ki Punches_, Mar 15 2009
%E A158277 Corrected by _Ray Chandler_ and _R. J. Mathar_, Apr 03 2009