|
%I #13 Dec 10 2013 03:52:35
%S 2,4762,107624,35641,39568,1380796,12635940,40837596,102349857,
%T 102567384,106342987,129046873,107623945,231940678,239607415,
%U 368709154,1023456789,164758903,176384592,1023456789,1023456789,1023456789,1023456789,1023456789,1023456789
%N Least positive k (not a power of 10) such that k and k^n have the same set of digits.
%C a(17) and a(20)-a(40) = A050278(1) = 1023456789, the smallest pandigital number. [_Lars Blomberg_, Dec 10 2013]
%H Lars Blomberg, <a href="/A232712/b232712.txt">Table of n, a(n) for n = 1..40</a>
%o (PARI) for(n=1, 6, k=1; until(Set(Vec(Str(k)))==Set(Vec(Str(k^n)))&&!(sumdigits(k)==1), k++); print1(k, ", "));
%Y Cf. A171102, A029793, A029795, A232659-A232662.
%K nonn,base
%O 1,1
%A _Arkadiusz Wesolowski_, Nov 28 2013
%E a(14)-a(25) from _Lars Blomberg_, Dec 10 2013
|
