OFFSET
1,1
MAPLE
A110351 := proc(n) local k ; for k from 1 to n*(n+1) do if (k*(2*n+k+1)) mod (n*(n+1)) =0 then RETURN(k*(n+(k+1)/2)) ; fi ; od ; RETURN(0) ; end: A110352 := proc(n) 2*A110351(n)/(n*(n+1)) ; end: for n from 1 to 100 do printf("%d, ", A110352(n)) ; od ; # R. J. Mathar, May 02 2007
MATHEMATICA
Do[t = n*(n + 1)/2; k = 1; While[Mod[k*n + k*(k + 1)/2, t] > 0, k++ ]; Print[(k*n + k*(k + 1)/2)/((n*(n + 1))/2)], {n, 1, 60}] (* Stefan Steinerberger, Feb 17 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 21 2005
EXTENSIONS
More terms from Stefan Steinerberger, Feb 17 2006
More terms from R. J. Mathar, May 02 2007
STATUS
approved