%I #17 Aug 12 2023 04:37:06
%S 1,50,290,290,850,1690,1690,2210,4930,6710,9802,10660,22100,24650,
%T 22100,28730,38918,48100,48100,68900,68900,114070,128180,188500,
%U 188500,246500,226798,246500,278980,404260,399620,490100,640900,640900,817700,746980,906100
%N Square roots of sums of squares of divisors in A046655.
%H Amiram Eldar, <a href="/A046656/b046656.txt">Table of n, a(n) for n = 1..1000</a> (terms 1..500 from Donovan Johnson)
%F a(n) = sqrt(A001157(A046655(n))). - _Amiram Eldar_, Aug 12 2023
%t Select[Sqrt[DivisorSigma[2, #]] & /@ Range[750000], IntegerQ] (* _Jayanta Basu_, Jun 27 2013 *)
%Y Cf. A001157, A046655.
%K nonn
%O 1,2
%A _Labos Elemer_
|