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 A054809 #24 Aug 27 2025 03:55:42
%S A054809 1657,1777,1847,1861,1987,2371,2459,2503,2521,3433,3449,4201,4507,
%T A054809 5261,5407,5431,6029,6637,7229,7283,7741,7867,7919,8147,8501,9587,
%U A054809 9601,11027,11369,11579,11821,12391,13859,14813,15121,15527,16033,16301,16811,17011,17377
%N A054809 Second term of strong prime 5-tuples: p(m)-p(m-1) > p(m+1)-p(m) > p(m+2)-p(m+1) > p(m+3)-p(m+2).
%C A054809 Initial member of pairs of consecutive primes in A054805 (second of quadruples): The first 10^4 terms of that sequence yield over 2000 terms of this sequence. - _M. F. Hasler_, Oct 27 2018
%H A054809 M. F. Hasler, <a href="/A054809/b054809.txt">Table of n, a(n) for n = 1..2000</a>
%F A054809 a(n) = nextprime(A054808(n)) = prevprime(A054810(n)), nextprime = A151800, prevprime = A151799; A054809 = {m = A054805(n) | nextprime(m) = A054805(n+1)}. - _M. F. Hasler_, Oct 27 2018
%t A054809 spqQ[n_]:=Module[{difs=Differences[n]},difs[[1]]>difs[[2]]> difs[[3]]> difs[[4]]]; Transpose[Select[Partition[Prime[ Range[2000]],5,1], spqQ]][[2]] (* _Harvey P. Dale_, May 06 2012 *)
%Y A054809 Cf. A051634, A051635; A054800 .. A054803: members of balanced prime quadruples (= 4 consecutive primes in arithmetic progression); A054804 .. A054818: members of strong prime 4-tuples, 5-tuples, 6-tuples; A054819 .. A054840: members of weak prime 4-tuples, ..., 7-tuples.
%K A054809 nonn,changed
%O A054809 1,1
%A A054809 _Henry Bottomley_, Apr 10 2000
%E A054809 Corrected by _Harvey P. Dale_, May 06 2012
%E A054809 Edited and offset corrected to 1 by _M. F. Hasler_, Oct 27 2018