|
|
A110739
|
|
Arithmetic mean of row n in A112668.
|
|
4
|
|
|
1, 2, 7, 10, 311, 651, 42799, 410, 9709, 43584805, 6140565047, 5086263, 4696537119847, 23436764200591, 5124095576030431, 1345210, 7563707819165039903, 52981906467, 14523213296398891966759, 87169610
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|