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 A126990 #19 Mar 19 2020 06:18:52
%S A126990 3,3,7,7,13,13,19,23,23,31,31,37,43,47,47,53,61,61,67,73,73,83,89,89,
%T A126990 97,103,103,109,113,113,131,131,139,139,151,151,157,167,167,173,181,
%U A126990 181,193,193,199,199,211,223,229,233,233,241,241,251,257,263,271,271,277
%N A126990 Largest prime preceding geometric mean of prime(n) and prime(n+2).
%C A126990 With duplicates removed, seems to be a subsequence of A105399 and A105792. - _M. F. Hasler_, Jun 14 2007
%D A126990 P. Ribenboim, The Little Book of Bigger Primes, Springer-Verlag NY 2004.
%H A126990 Amiram Eldar, <a href="/A126990/b126990.txt">Table of n, a(n) for n = 1..10000</a>
%F A126990 a(n) = A007917(A073273(n)). - _Michel Marcus_, Nov 07 2013
%t A126990 << NumberTheory`NumberTheoryFunctions` a = {}; Do[AppendTo[a,PreviousPrime[Sqrt[(Prime[x])*(Prime[x + 2])]]], {x, 1, 100}]; a
%o A126990 (PARI) A126990(n)={ n=sqrtint(prime(n)*prime(n+2)); if( 0==n%2, n--); while(!isprime(n), n-=2); n } /* then vector(50,n,A126990(n)) displays a list of values, _M. F. Hasler_, Jun 14 2007 */
%o A126990 (PARI) a(n)= precprime(sqrtint(prime(n)*prime(n+2))); \\ _Michel Marcus_, Nov 07 2013
%Y A126990 Cf. A007917, A073273.
%K A126990 nonn
%O A126990 1,1
%A A126990 _Artur Jasinski_, Jan 01 2007
%E A126990 Edited by _M. F. Hasler_, Jun 14 2007
%E A126990 Definition changed so that offset is now 1 by _Michel Marcus_, Nov 07 2013