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 A154674 #13 Dec 25 2019 04:49:30
%S A154674 990000,1940400,2227500,6187500,35640000,54212400,57182400,74933100,
%T A154674 159677100,164745900,167310000,194040000,289485900,380318400,
%U A154674 424205100,496742400,664101900,684773100,902919600,976100400,982327500,1007433900
%N A154674 Averages of twin prime pairs k such that k*11 and k/11 are squares.
%H A154674 Amiram Eldar, <a href="/A154674/b154674.txt">Table of n, a(n) for n = 1..10000</a>
%F A154674 a(n) = 9900*A154774(n)^2. - _M. F. Hasler_, Jan 15 2009
%t A154674 lst={};Do[If[PrimeQ[n-1]&&PrimeQ[n+1],s=(n*11)^(1/2);If[Floor[s]==s,AppendTo[lst,n]]],{n,6,11!,6}];lst...and/or... lst={};Do[If[PrimeQ[n-1]&&PrimeQ[n+1],s=(n/11)^(1/2);If[Floor[s]==s,AppendTo[lst,n]]],{n,6,11!,6}];lst
%t A154674 Select[11*Range[10^4]^2, And @@ PrimeQ[# + {-1, 1}] &] (* _Amiram Eldar_, Dec 25 2019 *)
%o A154674 (PARI) for(i=1,999, isprime(9900*i^2+1) && isprime(9900*i^2-1) && print1(9900*i^2",")) \\ _M. F. Hasler_, Jan 15 2009
%Y A154674 Cf. A154670, A154671, A154672, A154673, A154774.
%K A154674 nonn
%O A154674 1,1
%A A154674 _Vladimir Joseph Stephan Orlovsky_, Jan 13 2009
%E A154674 More terms from _M. F. Hasler_, Jan 15 2009