|
%I #10 Sep 02 2019 04:58:29
%S 2,8,18,20,32,50,72,80,90,98,128,162,180,200,242,272,288,320,338,360,
%T 392,450,468,500,512,578,648,650,720,722,800,810,882,968,980,1058,
%U 1088,1152,1250,1280,1332,1352,1440,1458,1568,1620,1682,1800,1872
%N Numbers that can be written as sum of squares of two divisors.
%H Amiram Eldar, <a href="/A094147/b094147.txt">Table of n, a(n) for n = 1..10000</a>
%e 6 and 12 are divisors of 180 and 6^2 + 12^2 = 36 + 144 = 180, therefore 180 is a term.
%t aQ[n_] := AnyTrue[n - Divisors[n]^2, IntegerQ[(s = Sqrt[#])] && s>0 && Divisible[n, s] &]; Select[Range[2, 1872], aQ] (* _Amiram Eldar_, Sep 02 2019 *)
%Y Subsequence of A000404.
%Y A001105 is a subsequence.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jun 01 2004
|
