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 A048253 #17 May 14 2018 18:26:20 %S A048253 1,1,1,5,11,18,30,48,85,148,250,415,669,1066,1697,2635,4036,6111,9137, %T A048253 13540,19930,29098,42184,60655,86598,122821,173314,243469,340329, %U A048253 473221,654779,901741,1236668,1689322,2298592,3115200,4206016,5658677,7588039 %N A048253 a(n) is the number of integers whose sum of divisors is 6^n. %H A048253 Ray Chandler, <a href="/A048253/b048253.txt">Table of n, a(n) for n = 0..1000</a> %e A048253 For n=3, sigma(1,k) = 6^3 = 216 for each of 5 integers: 102, 110, 142, 159, and 187, so a(3) = 5. %t A048253 With[{s = Array[DivisorSigma[1, #] &, 6^8]}, Array[Count[s, 6^#] &, Log[6, Length@ s] + 1, 0]] (* _Michael De Vlieger_, May 14 2018 *) %o A048253 (PARI) a(n) = sum(k=1, 6^n, sigma(k)==6^n); \\ _Michel Marcus_, May 14 2018 %Y A048253 Cf. A006532, A020477, A019422, A019423, A018427, A048251-A048256. %K A048253 nonn %O A048253 0,4 %A A048253 _Labos Elemer_ %E A048253 a(9)-a(14) from _Donovan Johnson_, Sep 02 2008 %E A048253 Edited and extended by _Ray Chandler_, Sep 01 2010