A065767 Intersection of A065764 and A065765: n such that x and y exist with sigma[x^2] = n = sigma[2*(y^2)].

399, 5187, 12369, 34671, 48279, 73017, 80199, 122493, 152019, 160797, 220647, 259749, 311619, 347529, 396207, 436107, 561393, 687477, 755307, 900543, 949221, 1042587, 1074801, 1142337, 1412859, 1496649, 1509417, 1592409, 1818243

Offset: 1

Author

Labos Elemer, Nov 19 2001

Keywords

• nonn

Examples

			n = 399 = sigma[14^2] = sigma[2*(11^2)] = 1+2+4+7+14+28+49+98+196 = 1+2+11+22+121+242; also sigma[42.42] = sigma[2.33.33] = sigma[1764] = sigma[2378] = 5187.
		

Links

• T. D. Noe, Table of n, a(n) for n=1..10000

Crossrefs

Cf. A028982, A000203, A000290, A065764-A065768.

Programs

Mathematica

Intersection[Table[DivisorSigma[1, w^2], {w, 1, 10000}], Table[DivisorSigma[1, 2*(w^2)], {w, 1, 10000}]]