OFFSET
1,2
COMMENTS
Tested all the 8877691 numbers with distinct digits; no additional terms. - Giovanni Resta, Apr 16 2019
EXAMPLE
| 1 1 1 |
det | 1 9 81 | = 72 = phi(190).
| 1 0 0 |
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 phi(n)=det(vandermonde(c)) then print(n); fi; od; end: P(10^9);
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Paolo P. Lava, Apr 16 2019
STATUS
approved