A179941 Number of times n appears in a 100 X 100 multiplication table.

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, 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, 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

Offset

1,2

Comments

Identical to A000005 and A179942 for n <= 100.

Links

T. D. Noe, Table of n, a(n) for n = 1..10000

Formula

a(n) = 0 for n > 10000.

Example

a(2) = 2 because the number 2 appears in 2 cells in a 100 X 100 multiplication table.

Maple

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

Mathematica

Table[Count[Flatten[Times@@@Tuples[Range[100], {2}]], n], {n, 10000}]  (* Harvey P. Dale, Mar 24 2011 *)

Prog

(PARI) a(n)=sumdiv(n, d, d<101 && n/d<101) \\ Charles R Greathouse IV, Dec 27 2016

Crossrefs

Cf. A000005, A179942.

Sequence in context: A134687 A184395 A329484 * A179942 A000005 A122667

Adjacent sequences: A179938 A179939 A179940 * A179942 A179943 A179944

Keyword

nonn,fini,full,less

Author

Dominick Cancilla, Aug 02 2010

Extensions

More terms from R. J. Mathar, Aug 03 2010

a(100) corrected by Harvey P. Dale, Mar 24 2011

Status

approved