login
A110352
A110351(n)/T(n) where T(n) is the n-th triangular number.
3
2, 1, 5, 11, 2, 4, 41, 55, 13, 17, 7, 9, 32, 1, 26, 239, 59, 67, 14, 2, 12, 104, 60, 66, 137, 149, 46, 50, 23, 25, 929, 116, 20, 5, 39, 65, 314, 40, 6, 230, 34, 36, 117, 4, 82, 494, 219, 229, 563, 54, 27, 146, 662, 97, 9, 49, 91, 797, 220, 228, 884, 11, 740, 614, 18, 122, 251
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
Sequence in context: A049948 A222574 A222680 * A107310 A277279 A049950
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