The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A101459 a(k) = card { i*j, i <= k, j <= lcm(1,2,3...,k) }. 3
 1, 3, 12, 29, 176, 198, 1608, 3519, 11604, 12500, 152720, 160970, 2292000, 2417700, 2549904, 5336115, 97630080, 101271000, 2055670560, 2125864116, 2209916016, 2291367000, 55764302880, 57138304410, 297081542208 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS See A126959. LINKS M. F. Hasler, Table of n, a(n) for n = 1..61 EXAMPLE a(2) = 3 = #{ i*j, i=1..2, j=1..2 } = #{ 1,2, 2,4 } = #{1,2,4} a(3) = 12 = #{ 1,2,3,4,5,6, 2,4,6,8,10,12, 3,6,9,12,15,18 } = #{ 1,2,3,4,5,6,8,9,10,12,15,18 } MAPLE p:=proc(n) option remember; local s, t, i, j: s:=1; t:={}: for i from n-1 by -1 to 1+n/(min@op@eval@numtheory[factorset])(n) do t := t union { ilcm(n, i)/n }; t := select( x-> numtheory[divisors](x) intersect t = { x }, t ): for j in combinat[powerset](t) do s := s+(-1)^nops(j)/ilcm(op(j)) od: od; s/n end: a:= k -> ilcm(\$2..k)*add( p(n), n=1..k); CROSSREFS Cf. A126959. Sequence in context: A104353 A001860 A199035 * A051408 A331080 A164013 Adjacent sequences: A101456 A101457 A101458 * A101460 A101461 A101462 KEYWORD nonn AUTHOR M. F. Hasler, Mar 22 2007 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 25 13:13 EDT 2024. Contains 373705 sequences. (Running on oeis4.)