|
%I #25 Jan 17 2017 04:22:56
%S 1,2,2,3,2,4,2,4,3,4,2,6,2,4,4,5,2,6,2,6,4,4,2,8,3,4,4,6,2,8,2,6,4,4,
%T 4,9,2,4,4,8,2,8,2,6,6,4,2,10,3,6,4,6,2,8,4,8,4,4,2,12,2,4,6,7,4,8,2,
%U 6,4,8,2,12,2,4,6,6,4,8,2,10,5,4,2,12,4,4,4,8,2,12,4,6,4,4,4,12,2,6,6,9
%N Number of times n appears in a 100 X 100 multiplication table.
%C Identical to A000005 and A179942 for n <= 100.
%H T. D. Noe, <a href="/A179941/b179941.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 0 for n > 10000.
%e a(2) = 2 because the number 2 appears in 2 cells in a 100 X 100 multiplication table.
%p A179941 := proc(n) local a; a := 0 ; for x from 1 to 100 do y := n/x ; if type(y,'integer') and y>0 and y < 100 then a := a+1 ; end if; end do: return a; end proc: seq(A179941(n), n=1..100); # _R. J. Mathar_, Aug 03 2010
%t Table[Count[Flatten[Times@@@Tuples[Range[100],{2}]],n], {n,10000}] (* _Harvey P. Dale_, Mar 24 2011 *)
%o (PARI) a(n)=sumdiv(n,d,d<101 && n/d<101) \\ _Charles R Greathouse IV_, Dec 27 2016
%Y Cf. A000005, A179942.
%K nonn,fini,full,less
%O 1,2
%A _Dominick Cancilla_, Aug 02 2010
%E More terms from _R. J. Mathar_, Aug 03 2010
%E a(100) corrected by _Harvey P. Dale_, Mar 24 2011
|
