A110739 Arithmetic mean of row n in A112668.

1, 2, 7, 10, 311, 651, 42799, 410, 9709, 43584805, 6140565047, 5086263, 4696537119847, 23436764200591, 5124095576030431, 1345210, 7563707819165039903, 52981906467, 14523213296398891966759, 87169610

Offset: 1

Author

Amarnath Murthy, Aug 10 2005

Keywords

• easy
• nonn

Crossrefs

Equals A110737(n)/n.

Cf. A110737, A110738.

Programs

Maple

A110737 := proc(n) local i,a ; if n = 1 then RETURN(1) ; else a := 2 ; while (1-a^n)/(1-a) mod n <> 0 do a := a+1 ; od ; RETURN( (1-a^n)/(1-a) ) ; fi ; end: A110739 := proc(n) A110737(n)/n ; end: for n from 1 to 25 do printf("%d, ",A110739(n)) : od : # R. J. Mathar, Mar 13 2007

Formula

For n > 1, a(n) = (A110738(n)^n-1)/(n*A110738(n)-n). - David Wasserman, Dec 12 2008

Extensions

More terms from R. J. Mathar, Mar 13 2007