%I #8 Mar 06 2020 11:41:41
%S 2,3,3,4,5,4,5,6,5,7,5,7,8,7,6,9,7,8,9,7,10,7,8,11,9,10,11,9,12,8,11,
%T 13,11,9,13,11,14,9,10,13,11,12,15,13,11,14,15,10,13,16,11,12,13,11,
%U 14,17,15,13,16,11,17,18,13,17,13,16,19,17,12,15,13,19,14,17,20,15,13,16,19
%N Values r associated with A106499.
%t s[p_] := Solve[1 < r < s < 2r && p == r s + s^2 && GCD[r, s] == 1, {r, s}, Integers];
%t Reap[For[p = 1, p <= 2000, p++, sp = s[p]; If[sp =!= {}, Print[r /. sp[[1]] ]; Sow[r /. sp[[1]]]]]][[2, 1]] (* _Jean-François Alcover_, Mar 06 2020 *)
%Y Cf. A106499-A106506, A106410, A106420, A106430.
%K nonn
%O 1,1
%A _Lekraj Beedassy_, May 04 2005
%E Extended by _Ray Chandler_, May 09 2005