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 A154675 #14 Dec 25 2019 04:49:40
%S A154675 1872,7488,11700,825552,990288,1123668,1629108,3146832,3302208,
%T A154675 4680000,6627348,7667712,8783892,15502032,16017300,16365492,17252352,
%U A154675 25407252,32617728,42401268,42966612,54100800,66163968,71182800,73019700
%N A154675 Averages of twin prime pairs k such that k*13 and k/13 are squares.
%C A154675 Terms of this sequence must be of the form 13(6m)^2, the values for m are listed in A154775. - _M. F. Hasler_, Jan 15 2009
%H A154675 Amiram Eldar, <a href="/A154675/b154675.txt">Table of n, a(n) for n = 1..10000</a>
%F A154675 a(n) = 468 A154775(n)^2 - _M. F. Hasler_, Jan 15 2009
%t A154675 lst={};Do[If[PrimeQ[n-1]&&PrimeQ[n+1],s=(n*13)^(1/2);If[Floor[s]==s,AppendTo[lst,n]]],{n,6,11!,6}];lst
%t A154675 (* ... and/or ... *)
%t A154675 lst={};Do[If[PrimeQ[n-1]&&PrimeQ[n+1],s=(n/13)^(1/2);If[Floor[s]==s,AppendTo[lst,n]]],{n,6,11!,6}];lst
%t A154675 Select[13*Range[10^3]^2, And @@ PrimeQ[# + {-1, 1}] &] (* _Amiram Eldar_, Dec 25 2019 *)
%o A154675 (PARI) for(i=1,499, isprime(468*i^2+1) && isprime(468*i^2-1) && print1(468*i^2",")) \\ _M. F. Hasler_, Jan 15 2009
%Y A154675 Cf. A154670, A154671, A154672, A154673, A154674, A154775.
%K A154675 nonn
%O A154675 1,1
%A A154675 _Vladimir Joseph Stephan Orlovsky_, Jan 13 2009
%E A154675 More terms from _M. F. Hasler_, Jan 15 2009