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 A137222 #7 Sep 21 2015 01:17:47 %S A137222 1,2,2,3,3,4,4,5,6,7,7,8,8,8,8,9,9,10,10,11,12,13,13,14,15,15,16,17, %T A137222 17,18,18,19,20,20,20,21,21,21,21,22,22,23,23,23,24,25,25,26,26,27,27, %U A137222 28,28,29,29,30,31,32,32,33,33,33,33,34,34,35,35,36,36,37,37,38,38,38,39 %N A137222 Partial sums of A087429. %p A137222 A006530 := proc(n) numtheory[factorset](n) ; max(op(%)) ; end proc: A087429 := proc(n) if A006530(n+1) > A006530(n) then 1 ; else 0 ; end if; end proc: A137222 := proc(n) add( A087429(j),j=1..n) ; end proc: seq(A137222(n),n=1..100) ; # _R. J. Mathar_, Jan 30 2010 %Y A137222 Cf. A087429. %K A137222 easy,nonn %O A137222 1,2 %A A137222 _Giovanni Teofilatto_, Mar 07 2008 %E A137222 Terms beyond a(18) from _R. J. Mathar_, Jan 30 2010