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 A158758 #2 Mar 31 2012 12:38:21
%S A158758 4,8,9,11,13,14,15,16,18,19,21,22,23,25,26,27,29,30,31,32,33,35,36,37,
%T A158758 39,40,41,42,43,45,46,47,48,49,50,51,52,53,54,55,57,59,60,61,62,63,64,
%U A158758 65,66,67,68,69,71,72,73,74,75,76,77,78,79,81,82,83,84,85,86,87,89,90
%N A158758 Politest numbers.
%C A158758 Politest numbers can be written as the sum of two or more consecutive polite numbers. 1,3,5,6,7,9,10,11,12,13,14,15,17,18,...Polite numbers. 4=1+3, 8=3+5, 9=1+3+5, 11=5+6, 13=6+7, 14=3+5+6, 15=1+3+5+6,...Politest numbers.
%t A158758 lst={};Do[p=m;If[Mod[2^p,p]!=0||p==1,Do[If[Mod[2^n,n]!=0,p+=n;AppendTo[lst,p]],{n,m+1,5!}]],{m,1,5!}];Take[Union[lst],5! ]
%Y A158758 Cf. A138591, A065867, A158754
%K A158758 nonn
%O A158758 1,1
%A A158758 _Vladimir Joseph Stephan Orlovsky_, Mar 25 2009