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 A153216 #2 Mar 30 2012 17:34:28
%S A153216 2,2,3,8,3,4,8,3,4,5,16,9,4,5,6,16,9,4,5,6,7,128,9,16,5,6,7,8,128,81,
%T A153216 16,5,6,7,8,9,256,81,16,25,6,7,8,9,10,256,81,16,25,6,7,8,9,10,11,1024,
%U A153216 243,64,25,36,7,8,9,10,11,12
%N A153216 A triangular sequence of powers ( suppressed powers) : t(n,m)=m^Sum[Floor[n/m^k], {k, 1, Infinity}].
%C A153216 Row sums are:
%C A153216 {2, 5, 15, 20, 40, 47, 179, 260, 418, 429, 1449,...}. I use:
%C A153216 t(n,m)=m^Sum[Floor[n/m^k], {k, 1, 12}];
%C A153216 for the sake of time ( answer is the same at lower powers).
%F A153216 t(n,m)=m^Sum[Floor[n/m^k], {k, 1, Infinity}].
%e A153216 {2},
%e A153216 {2, 3},
%e A153216 {8, 3, 4},
%e A153216 {8, 3, 4, 5},
%e A153216 {16, 9, 4, 5, 6},
%e A153216 {16, 9, 4, 5, 6, 7},
%e A153216 {128, 9, 16, 5, 6, 7, 8},
%e A153216 {128, 81, 16, 5, 6, 7, 8, 9},
%e A153216 {256, 81, 16, 25, 6, 7, 8, 9, 10},
%e A153216 {256, 81, 16, 25, 6, 7, 8, 9, 10, 11},
%e A153216 {1024, 243, 64, 25, 36, 7, 8, 9, 10, 11, 12}
%t A153216 Table[Table[m^Sum[Floor[n/m^k], {k, 1, 12}], {m, 2, n}], {n, 2, 12}]
%t A153216 Flatten[%]
%K A153216 nonn,tabl
%O A153216 2,1
%A A153216 _Roger L. Bagula_, Dec 20 2008