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 A173828 #6 Dec 15 2021 18:40:29
%S A173828 7,43,47,67,149,163,167,337,353,487,587,617,787,911,947,1367,1777,
%T A173828 1783,2333,2347,2503,2927,2953,2963,3023,3607,3613,3637,3643,3697,
%U A173828 3709,3847,4363,4397,4423,4463,4483,4903,5273,6113,6143,6197,7103,7187,7193,8117
%N A173828 Primes p such that p-+(floor(Sqrt(p)))^2 are primes.
%H A173828 Harvey P. Dale, <a href="/A173828/b173828.txt">Table of n, a(n) for n = 1..1000</a>
%t A173828 f1[n_]:=n-(Floor[Sqrt[n]])^2;f2[n_]:=n+(Floor[Sqrt[n]])^2;lst={};Do[p=Prime[n];If[PrimeQ[f1[p]]&&PrimeQ[f2[p]],AppendTo[lst,p]],{n,8!}];lst
%t A173828 fQ[n_]:=Module[{c=Floor[Sqrt[n]]^2},AllTrue[n+{c,-c},PrimeQ]]; Select[ Prime[ Range[1200]],fQ] (* _Harvey P. Dale_, Dec 15 2021 *)
%Y A173828 Cf. A086085, A086086, A135932, A173826, A173827
%K A173828 nonn
%O A173828 1,1
%A A173828 _Vladimir Joseph Stephan Orlovsky_, Feb 25 2010