login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A025529 a(n) = (1/1 + 1/2 + ... + 1/n)*lcm{1,2,...,n}. 16
1, 3, 11, 25, 137, 147, 1089, 2283, 7129, 7381, 83711, 86021, 1145993, 1171733, 1195757, 2436559, 42142223, 42822903, 825887397, 837527025, 848612385, 859193865, 19994251455, 20217344325, 102157567401, 103187226801, 312536252003, 315404588903, 9227046511387 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

First column of A027446. - Eric Desbiaux, Mar 29 2013

LINKS

Alois P. Heinz, Table of n, a(n) for n = 1..1000

Haight, Frank A., and Robert B. Jones., "A probabilistic treatment of qualitative data with special reference to word association tests." Journal of Mathematical Psychology 11.3 (1974): 237-244. [Denominators of fractions in Eq. 21.] [Annotated scanned copy]

Frank Haight and N. J. A. Sloane, Correspondence, 1975

FORMULA

a(n) = A001008(n)*A110566(n). - Arkadiusz Wesolowski, Mar 29 2012

MAPLE

a:= n-> add(1/k, k=1..n)*ilcm($1..n):

seq(a(n), n=1..30);  # Alois P. Heinz, Mar 14 2013

MATHEMATICA

Table[HarmonicNumber[n]*LCM @@ Range[n], {n, 27}] (* Arkadiusz Wesolowski, Mar 29 2012 *)

PROG

(GAP) List([1..30], n->Sum([1..n], k->1/k)*Lcm([1..n])); # Muniru A Asiru, Apr 02 2018

(PARI) a(n) = sum(k=1, n, 1/k)*lcm([1..n]); \\ Michel Marcus, Apr 02 2018

CROSSREFS

Differs from A096617 at 7th term.

Cf. A001008, A002805, A027446, A110566.

Sequence in context: A001008 A231606 A096617 * A124078 A096795 A160039

Adjacent sequences:  A025526 A025527 A025528 * A025530 A025531 A025532

KEYWORD

nonn

AUTHOR

Clark Kimberling

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 16 10:30 EDT 2018. Contains 313803 sequences. (Running on oeis4.)