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 A154563 #2 Mar 31 2012 12:38:19 %S A154563 18,60,138,150,1278,1620,2730,4128,6360,11718,13398,17490,20808,23028, %T A154563 28308,29670,51870,61380,69828,73848,78540,92568,97500,115770,138570, %U A154563 166668,176610,193380,200928,258318,304980,430008,500910,518760,536190 %N A154563 Averages of twin prime pairs of A074378. %C A154563 18-1=17;18+1=19,... %t A154563 q=2;lst={};s=0;Do[s+=n/q;If[Floor[s]==s,If[PrimeQ[s-1]&&PrimeQ[s+1],AppendTo[lst,s]]],{n,0,8!}];lst %K A154563 nonn %O A154563 1,1 %A A154563 _Vladimir Joseph Stephan Orlovsky_, Jan 12 2009