%N A046790 has several definitions, one of which is: "Numbers i such that there is a smaller positive number j such that (i+j)/2 and sqrt(i*j) are integers". The present sequence gives the smallest choice for j.
%C Note that A046790 is the complement of A078779. - _Omar E. Pol_, Jun 11 2016
%H David A. Corneth, <a href="/A046791/b046791.txt">Table of n, a(n) for n = 1..10000</a>
%F Let b(n)=A046790(n). Let k=k(n) be the greatest number whose square divides b(n) and is such that b(n) and b(n)/k^2 are of the same parity. Then a(n) = b(n)/k^2. - _Vladimir Shevelev_, Jun 07 2016
%F Or, equivalently, a(n) is the squarefree part s(n) of b(n), if either b(n) is odd or s(n) is even. Otherwise, when b(n) is even, but s(n) is odd, a(n)=4*s(n). - _David A. Corneth_, Jun 07 2016
%e From _Vladimir Shevelev_, Jun 07 2016: (Start)
%e A046790(5)=24 with even squarefree part (6), so a(5) = 6;
%e A046790(12)=48 with odd squarefree part (3), so a(12) = 3*4=12.
%o (PARI) a(n) = my(n=A046790(n),f=factor(n),p=n%2);f[,2]=f[,2]%2;r=prod(i=1,matsize(f),f[i,1]^f[i,2]);r*=(4^(n%2==0&&r%2==1)) \\ _David A. Corneth_, Jun 07 2016
%Y Cf. A046790.
%A _David W. Wilson_, Dec 11 1999
%E Entry revised by _N. J. A. Sloane_, with help from _Don Reble_ and several OEIS editors. Jun 07 2016