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.

42, 93, 253, 712, 802, 6312, 7302, 9823, 25603, 40312, 41302, 65012, 65102, 714523, 781523, 804523, 65072413, 65172403

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

Table of n, a(n) for n=1..18.

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

Cf. A169738

Sequence in context: A044180 A044561 A169680 * A169738 A063329 A172465

Adjacent sequences: A177769 A177770 A177771 * A177773 A177774 A177775

Keyword

base,fini,full,nonn

Author

Harvey P. Dale, May 13 2010

Status

approved