

A177772


Base 10 numbers d_1 d_2 ... d_k such that the digits d_i are distinct, and Sum_{i=1..k1} d_i^i = d_k^k.


0



42, 93, 253, 712, 802, 6312, 7302, 9823, 25603, 40312, 41302, 65012, 65102, 714523, 781523, 804523, 65072413, 65172403
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

The sequence is identical to A169738 except that the current sequence permits numbers containing the digit zero whereas A169738 does not.


LINKS



MATHEMATICA

okQ[l_List]:=Module[{lp=l^Range[Length[l]]}, Total[Most[lp]]==Last[lp]] l1=Sort[FromDigits /@ Select[Flatten[ Table[Permutations /@ Subsets[Range[0, 9], {i}], {i, 2, 10}], 2], okQ]]; Select[l1, okQ[IntegerDigits[ # ]]&]


CROSSREFS



KEYWORD

base,fini,full,nonn


AUTHOR



STATUS

approved



