|
|
A177772
|
|
Base 10 numbers d_1 d_2 ... d_k such that the digits d_i are distinct, and Sum_{i=1..k-1} 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
|
|
|
|