A380902 Integers k with at least 1 proper factorization for which the sum of the squares of the factors equals k.
16, 27, 48, 54, 270, 528, 1755, 7216, 7830, 11934, 69168, 81702, 100368, 264654, 340470, 559899, 1397808, 1586340, 1695195, 3837510, 3918420, 8989110, 9815568, 13010448, 15812550, 19468816, 26302590, 75872430, 132825616, 133529580, 180280539, 271165488
Offset: 1
Keywords
Examples
a(1) = 16: 2 * 2 * 2 * 2 = 2^2 + 2^2 + 2^2 + 2^2 = 16. a(2) = 27: 3 * 3 * 3 = 3^2 + 3^2 + 3^2 = 27. a(3) = 48: 2 * 2 * 2 * 6 = 2^2 + 2^2 + 2^2 + 6^2 = 48.
Programs
-
PARI
a380902_count(x, f=List())={my(r=x/if(#f, vecprod(Vec(f)), 1)); if(r==1, return(if(sum(i=1, #f, f[i]^2)==x, 1, 0))); my(d, c=0); fordiv(r, d, if(d==1 || d==x || (#f && d
Charles L. Hohn, Mar 09 2025
Comments