The submissions stack has been unacceptably high for several months now. Please voluntarily restrict your submissions and please help with the editing. (We don't want to have to impose further limits.)
Table of n, a(n) for n=2..61.
a:=proc(n) local p: p:=proc(k) if type(n*(n+k)/(n-k), integer)=true then n*(n+k)/(n-k) else fi end; [seq(p(j), j=1..n-1)]: end: seq(a(n), n=2..75); (Deutsch)
Sequence in context: A014201 A242951 A022089 * A091827 A160729 A115014
Adjacent sequences: A110354 A110355 A110356 * A110358 A110359 A110360
Amarnath Murthy, Jul 22 2005
Corrected and extended by Emeric Deutsch, Jul 29 2005