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 A098726 #10 Jul 27 2017 04:19:31
%S A098726 3,2,3,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
%T A098726 3,2,3,3,2,3,3,3,3,3,3,2,3,3,3,3,3,3,3,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,
%U A098726 3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3
%N A098726 Take three consecutive primes starting with the n-th prime. Calculate d(i,j) = abs(prime(i) - prime(j)), for all {i,j}, i.e., all possible differences. a(n) is the number of distinct differences (which can be either 3 or 2).
%C A098726 a(n) = 2 iff the consecutive prime differences are equal.
%C A098726 It appears that a(n) = 2 for n in A064113. - _Michel Marcus_, Jul 27 2017
%t A098726 k=3;t=Table[Abs[Prime[n+i]-Prime[n+j]], {i, 0, k-1}, {j, 0, k-1}]; u=Delete[Union[Flatten[t]], 1];a(n)=Length[u]
%Y A098726 Cf. A080370, A054643, A064113.
%K A098726 nonn
%O A098726 1,1
%A A098726 _Labos Elemer_, Oct 05 2004
%E A098726 Name edited by _Michel Marcus_, Jul 27 2017