A259037 Non-unitary amicable numbers.
48, 56, 192, 248, 252, 328, 448, 496, 768, 1016, 1792, 2032, 3240, 6462, 7936, 8128, 11616, 11808, 17412, 20538, 49152, 65528, 114688, 131056, 507904, 524224, 786432, 1048568, 1835008, 2080768, 2096896, 2097136, 3145728, 4194296, 7340032, 8126464, 8388544, 8388592, 32505856, 33292288, 33554176, 33554368, 133169152, 134217472
Offset: 1
Keywords
Examples
48 and 56 are in the sequence, as sigma(48)-usigma(48) = 56 and sigma(56)-usigma(56) = 48.
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..48
- Steve Ligh and Charles R. Wall, Functions of Nonunitary Divisors, Fibonacci Quarterly, Vol. 25 (1987), pp. 333-338.
- Eric Weisstein's World of Mathematics, Unitary Divisor Function
- Wikipedia, Unitary divisor
Programs
-
PARI
A048146(n)=my(f=factor(n)); sigma(f)-prod(i=1, #f~, f[i, 1]^f[i, 2]+1) is(n)=my(k=A048146(n)); k>1 && k!=n && A048146(k)==n \\ Charles R Greathouse IV, Jun 17 2015
Comments