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 A198696 #14 Oct 30 2018 10:31:02
%S A198696 4,6,9,11,18,21,24,27,30,32,34,42,44,51,53,58,62,66,68,72,77,80,82,84,
%T A198696 87,91,94,97,99,101,106,114,121,125,127,132,135,137,139,141,143,146,
%U A198696 150,154,157,162,166,168,170,172,175,177,180,186,189,191,193,197
%N A198696 Positions of local maxima in differences of primes, A001223.
%C A198696 Or, numbers n such that A001223(n-1) < A001223(n) > A001223(n+1).
%C A198696 Corresponding values of local maxima (4, 4, 6, 6, 6, 6, 8,...) are in A198697.
%t A198696 nn = 1001; t = Differences[Prime[Range[nn]]]; t2 = {}; Do[If[t[[n - 1]] < t[[n]] && t[[n]] > t[[n + 1]], AppendTo[t2, {n, t[[n]]}]], {n, 2, nn - 2}]; Transpose[t2][[1]] (* _T. D. Noe_, Dec 27 2011 *)
%Y A198696 Cf. A196175 local minima in A001223 (first differences of primes), A198697.
%K A198696 nonn
%O A198696 1,1
%A A198696 _Zak Seidov_, Oct 29 2011