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 A165362 #2 Mar 31 2012 12:38:26
%S A165362 3,4,8,9,18,21,23,24,38,42,43,50,55
%N A165362 Integers of pseudo-averages of at least two consecutive nonprime numbers of the form (a+b+c+..+z)/z, which can be expressed only ones.
%C A165362 (4+6+8+9)/9=3, (9+10+12+14+15)/15=4,..
%t A165362 lst={};Do[a=0;If[ !PrimeQ[q],Do[If[ !PrimeQ[n],m=n;a+=m;e=a/n;If[IntegerQ[e]&&a!=n,If[e<92,AppendTo[lst,e],Break[]]]],{n,q,6000}]],{q,5200}];lst=Sort@lst;lst1={3};lst2={}; Do[If[lst[[n]]==lst[[n+1]]||lst[[n]]==lst[[n-1]],AppendTo[lst2,lst[[n]]],AppendTo[lst1,lst[[n]]]],{n,1,Length[lst]-1,1}]; lst1
%Y A165362 Cf. A165240
%K A165362 nonn,uned
%O A165362 1,1
%A A165362 _Vladimir Joseph Stephan Orlovsky_, Sep 16 2009