Question: Asymptotic approximation help

Hello I don't mean this to the discredit of any others, and attempted to use the "contact user" feature, but the emails bounced, anyway I was hoping to get the user @Carl Love or @acer to assist me with this subject


q := proc (h) options operator, arrow; min(`minus`(divisors(h*floor(ithprime(h)/h)), {1})) end proc;

DATA := [seq([h, simplify((h*igcd(h, h*q(h))-floor(sqrt(h))*igcd(floor(sqrt(h)), q(h)))^(1/2), 'radical')], h = 1 .. 300)];


plots[:-pointplot](DATA, color = "Black");



Please Wait...