OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 1000: # to get all terms <= N
g:= proc(t) local r; if t^2 > 40*y^2 then return NULL fi;
r:= t/2 + 20*y^2/t; if r::integer and r <= N then r fi; end proc:
R:= {}:
for y from 1 to floor(N/sqrt(40)) do
R:= R union map(g, numtheory:-divisors(40*y^2))
od:
sort(convert(R, list)); # Robert Israel, Jul 16 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 23 2009
STATUS
approved