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 A123993 #12 Dec 11 2020 11:30:49
%S A123993 2,3,41,907,1151,1553,1609,1667,1801,1907,1933,2351,2473,2531,2953,
%T A123993 3001,3571,4007,4073,4253,4663,5023,5417,5881,6143,6257,6329,6343,
%U A123993 7879,8461,8521,8563,9041,9067,10103,10781,11243,11251,11257,12097,12413,13217
%N A123993 Primes p such that p^2 is an interprime = average of two successive primes.
%C A123993 Primes in A075190 (numbers n such that n^2 is an interprime).
%t A123993 Select[PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; Select[ Range[25000], 2#^2 == PrevPrim[ #^2] + NextPrim[ #^2] &],PrimeQ]
%t A123993 atsp[n_]:=Module[{n2=n^2},(NextPrime[n2]+NextPrime[n2,-1])/2==n2]; Select[Prime[Range[2000]],atsp] (* _Harvey P. Dale_, Jan 05 2011 *)
%o A123993 (PARI) isok(p) = isprime(p) && ((nextprime(p^2) + precprime(p^2)) / 2 - p^2 == 0); \\ _Michel Marcus_, Dec 11 2020
%Y A123993 Cf. A075190, A024675 (interprimes).
%K A123993 nonn
%O A123993 1,1
%A A123993 _Alexander Adamchuk_, Oct 30 2006