STATUS
proposed
approved
proposed
approved
editing
proposed
With[{s = Array[DivisorSigma[1, #] &, 6^8]}, Array[Count[s, 6^#] &, Log[6, Length@ s] + 1, 0]] (* Michael De Vlieger, May 14 2018 *)
proposed
editing
editing
proposed
(PARI) a(n) = sum(k=1, 6^n, sigma(k)==6^n); \\ Michel Marcus, May 14 2018
proposed
editing
editing
proposed
Number a(n) is the number of integers whose sum of divisors = is 6^n.
For n=3 Sigma[ , sigma(1,x ]k) = 6^3 = 216 holds for each of 5 integers: 102, 110, 142, 159 , and 187, that is for so a(3) = 5 integers.
approved
editing
Ray Chandler, <a href="/A048253/b048253.txt">Table of n, a(n) for n = 0..1000</a>
Labos E. (labos(AT)ana.sote.hu)
a(9)-a(14) from _Donovan Johnson (donovan.johnson(AT)yahoo.com), _, Sep 02 2008