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.)
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)][1]: end: seq(a(n), n=2..75); (Deutsch)