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 A163487 #16 Nov 03 2023 23:32:51
%S A163487 2,3,5,7,13,23,31,37,43,103,127,131,151,163,167,229,241,257,293,311,
%T A163487 313,337,389,433,509,521,523,613,647,661,719,739,743,757,797,821,887,
%U A163487 937,953,971,1013,1033,1063,1151,1153,1217,1283,1303,1307,1319,1373,1451
%N A163487 Primes p such that 6*p is the sum of two consecutive primes.
%H A163487 Robert Israel, <a href="/A163487/b163487.txt">Table of n, a(n) for n = 1..10000</a>
%e A163487 2*6=12=5+7, 3*6=18=7+11, 5*6=30=13+17, ..
%p A163487 Primes:= select(isprime, [seq(i,i=3..10^4, 2)]):
%p A163487 select(t -> t::integer and isprime(t), (Primes[1..-2]+Primes[2..-1])/6); # _Robert Israel_, Jun 19 2018
%t A163487 Select[ListConvolve[{1,1},Prime[Range[1000]]]/6,PrimeQ] (* _Paolo Xausa_, Nov 03 2023 *)
%Y A163487 Cf. A001043, A118134.
%K A163487 nonn
%O A163487 1,1
%A A163487 _Vladimir Joseph Stephan Orlovsky_, Jul 28 2009
%E A163487 Edited by _N. J. A. Sloane_, Aug 08 2009