OFFSET
1,2
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
Amarnath Murthy, Aug 10 2005
EXTENSIONS
More terms from R. J. Mathar, Mar 13 2007
STATUS
approved