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 A157524 #8 Feb 03 2019 06:51:42 %S A157524 1,1,2,2,3,3,3,3,5,5,5,7,6,6,7,8,6,9,11,10,9,10,11,11,11,14,13,15,21, %T A157524 22,19,20,19,20,19,20,21,18,21,23,20,22,23,27,29,27,33,30,27,29,31,32, %U A157524 36,38,35,35,39,37,35,34,41,43,46,47,42,40,39,42,46,46,53,52,45,46,50,50,56,55 %N A157524 a(n) = A140783(n+4)/9. %p A157524 A091137 := proc(n) local a,p ; a := 1 ; p := 2 ; while floor(n/(p-1)) > 0 do a := a*p^floor(n/(p-1)) ; p := nextprime(p) ; od: RETURN(a) ; end: %p A157524 A140783 := proc(n) add(i,i=convert(A091137(n),base,10)) ; end: %p A157524 A157524 := proc(n) A140783(n+4)/9; end: seq(A157524(n),n=0..120) ; # _R. J. Mathar_, Apr 10 2009 %K A157524 nonn,base %O A157524 0,3 %A A157524 _Paul Curtz_, Mar 02 2009 %E A157524 Extended by _R. J. Mathar_, Apr 10 2009