A046656 Square roots of sums of squares of divisors in A046655.
1, 50, 290, 290, 850, 1690, 1690, 2210, 4930, 6710, 9802, 10660, 22100, 24650, 22100, 28730, 38918, 48100, 48100, 68900, 68900, 114070, 128180, 188500, 188500, 246500, 226798, 246500, 278980, 404260, 399620, 490100, 640900, 640900, 817700, 746980, 906100
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000 (terms 1..500 from Donovan Johnson)
Programs
-
Mathematica
Select[Sqrt[DivisorSigma[2, #]] & /@ Range[750000], IntegerQ] (* Jayanta Basu, Jun 27 2013 *)