|
%I #6 Apr 22 2019 14:27:15
%S 1,2,2,3,2,5,2,4,3,6,2,8,2,6,5,5,2,9,2,8,5,6,2,11,3,6,4,8,2,17,2,6,6,
%T 6,5,14,2,6,6,11,2,17,2,9,8,6,2,15,3,10,6,9,2,13,5,11,6,6,2,26,2,6,8,
%U 7,5,18,2,10,6,17,2,18,2,6,9,10,5,19,2,14,5
%N Number of divisors of n^3 that are <= n.
%H Clark Kimberling, <a href="/A325339/b325339.txt">Table of n, a(n) for n = 1..10000</a>
%e a(10) counts these 6 divisors: 1,2,4,5,8,10.
%t Table[Length[Select[Divisors[n^3], # <= n &]], {n, 1, 120}]
%o (PARI) a(n) = sumdiv(n^3, d, d <= n); \\ _Michel Marcus_, Apr 22 2019
%Y Cf. A000578, A048785.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 21 2019
|
