|
%I #13 Aug 23 2023 09:23:55
%S 7351062489,8105632794,8401253976,8731945026,9164072385,9238750614,
%T 9615278340,9847103256
%N Numbers having each digit once and whose 5th power has each digit five times.
%C There are 8 numbers total. Subsequence of A114261.
%H Patrick De Geest, <a href="http://www.worldofnumbers.com/ninedig4.htm">The nine digits (page 4) with some ten digit (pandigital) exceptions</a>
%H Author?, <a href="http://web.archive.org/web/20080708203024/http://blue.kakiko.com/mmrmmr/htm/eqtn11.html">All terms</a>
%e 7351062489 ^5 = 21465972705539303240727164839587886180361092651449.
%t t = Select[Permutations[Range[0, 9]], #[[1]] > 0 &]; t2 = Select[t, Union[DigitCount[FromDigits[#]^5]] == {5} &]; FromDigits /@ t2
%Y Cf. A050278 (pandigital numbers), A199630, A199631, A114260, A114261, A199633.
%K nonn,base,fini,full
%O 1,1
%A _T. D. Noe_, Nov 09 2011
|
