A307586 Numbers k such that the determinant of the Vandermonde matrix of their digits is equal to sigma(k), the sum of divisors of k.
1, 1349, 12673, 12934, 16748, 16874, 17034, 28957, 60438, 67180, 80612, 81257, 87021, 93651, 413856, 712530, 813624, 942786
Offset: 1
Examples
| 1 1 1 1 1 | | 1 2 4 8 16 | det | 1 6 36 216 1296 | = 14400 = sigma(12673). | 1 7 49 343 2401 | | 1 3 9 27 81 |
Programs
-
Maple
with(numtheory): with(linalg): P:=proc(q) local a,c,k,n; for n from 1 to q do a:=convert(n,base,10): c:=[]: for k from 1 to nops(a) do c:=[op(c), a[-k]]; od; if sigma(n)=det(vandermonde(c)) then print(n); fi; od; end: P(10^9);
Comments