login
Arithmetic mean of row n in A112668.
4

%I #10 Aug 09 2015 00:34:54

%S 1,2,7,10,311,651,42799,410,9709,43584805,6140565047,5086263,

%T 4696537119847,23436764200591,5124095576030431,1345210,

%U 7563707819165039903,52981906467,14523213296398891966759,87169610

%N Arithmetic mean of row n in A112668.

%F For n > 1, a(n) = (A110738(n)^n-1)/(n*A110738(n)-n). - _David Wasserman_, Dec 12 2008

%p 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

%Y Equals A110737(n)/n.

%Y Cf. A110737, A110738.

%K easy,nonn

%O 1,2

%A _Amarnath Murthy_, Aug 10 2005

%E More terms from _R. J. Mathar_, Mar 13 2007