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 A349793 #11 Dec 29 2024 18:17:05
%S A349793 3,7,13,23,47,89,157,173,257,263,373,563,593,607,653,733,947,977,1103,
%T A349793 1123,1187,1223,1367,1511,1747,1753,1907,2287,2417,2677,2903,2963,
%U A349793 3307,3313,3637,3733,4013,4409,4457,4597,4657,4691,4993,5107,5113,5303,5387,5393
%N A349793 Primes which are the nearest integer to the harmonic mean of the previous prime and the following prime.
%H A349793 Hugo Pfoertner, <a href="/A349793/b349793.txt">Table of n, a(n) for n = 1..10000</a>
%t A349793 Select[Partition[Prime[Range[750]],3,1],Round[HarmonicMean[{#[[1]],#[[3]]}]]==#[[2]]&][[;;,2]] (* _Harvey P. Dale_, Dec 29 2024 *)
%o A349793 (PARI) a349793(limit) = {my(p1=2,p2=3); forprime(p3=5, limit, my(hm=round((2*p1*p3)/(p1+p3))); if(p2==hm, print1(p2,", ")); p1=p2;p2=p3)};
%o A349793 a349793(5500)
%Y A349793 Cf. A006562, A046869, A051635, A075540, A216124.
%K A349793 nonn
%O A349793 1,1
%A A349793 _Hugo Pfoertner_, Nov 30 2021