|
%I #40 May 08 2019 19:18:32
%S 0,1,3435,438579088
%N Equal to the sum of its nonzero digits raised to its own power.
%C A variant of Munchausen numbers. Cf. A166623.
%D J. S. Madachy, "Madachy's Mathematical Recreations", Dover N.Y., pp. 163-175.
%D C. A. Pickover, "Keys to Infinity", Wiley 1995, Ch. 22, pp. 169-171.
%D David Wells, "Curious and Interesting Numbers", Penguin 1988, pp. 169, 190.
%H Devin Akman, <a href="https://projecteuclid.org/euclid.mjms/1534384947">Munchausen Numbers Redux</a>, Missouri J. Math. Sci. 30 (2018), no. 1, 1--4.
%H Daan van Berkel, <a href="http://arxiv.org/abs/0911.3038">On a curious property of 3435</a>, arXiv:0911.3038 [math.HO], 2009.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MuenchhausenNumber.html">Münchhausen Number</a>.
%e 3435 = 3^3 + 4^4 + 3^3 + 5^5.
%t Select[Range[0,10000],Total[#^#&/@DeleteCases[IntegerDigits@#,0]]==#&] (* _Giorgos Kalogeropoulos_, May 08 2019 *)
%Y Cf. A032799, A166623.
%K nonn,fini,full,base
%O 1,3
%A _Patrick De Geest_, May 15 1998
|
