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 A161863 #14 Sep 08 2022 08:45:45
%S A161863 4,7,10,22,25,34,70,79,112,130,139,172,187,217,229,262,274,295,304,
%T A161863 322,337,364,397,400,472,499,574,580,592,622,634,655,664,697,829,844,
%U A161863 925,1057,1144,1165,1255,1300,1309,1357,1414,1420,1489,1537,1642,1669,1744
%N A161863 Numbers k such that k^2+k+3 and k^2+k-3 are both prime.
%H A161863 Daniel Starodubtsev, <a href="/A161863/b161863.txt">Table of n, a(n) for n = 1..10000</a>
%e A161863 4 is in the list because 16+4+-3 = 23 and 17 are primes.
%e A161863 7 is in the list because 49+7+-3 = 53 and 59 are primes.
%t A161863 q=3;lst3={};Do[p=n^2+n;If[PrimeQ[p-q]&&PrimeQ[p+q],AppendTo[lst3,n]],{n,0,7!}];lst3
%t A161863 Select[Range[2000],AllTrue[#^2+#+{3,-3},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 01 2019 *)
%o A161863 (Magma) [k:k in [1..1750]| IsPrime(k^2+k+3) and IsPrime(k^2+k-3)]; // _Marius A. Burtea_, Feb 17 2020
%Y A161863 Cf. A088485, A027752
%K A161863 nonn,easy
%O A161863 1,1
%A A161863 _Vladimir Joseph Stephan Orlovsky_, Jun 20 2009
%E A161863 Definition rephrased by _R. J. Mathar_, Jun 27 2009