A048341 Equal to the sum of its digits raised to its reversed digits power (0^0=1).

1, 48625, 397612

Offset: 0

Author

Patrick De Geest, Feb 15 1999

Keywords

• nonn
• base
• fini
• full
• bref

Examples

			48625 = 4^5 + 8^2 + 6^6 + 2^8 + 5^4.
		

Links

• Harvey Heinz, Narcissistic Numbers
• Eric Weisstein's World of Mathematics, Narcissistic Number

Crossrefs

Cf. A046253, A032799.

Programs

Mathematica

sdrdp[n_]:=Module[{idn=IntegerDigits[n]},Total[#[[1]]^#[[2]]&/@(Thread[ {idn,Reverse[idn]}]/.{0,0}->{1,1})]]; Select[Range[400000],# == sdrdp[#]&] (* Harvey P. Dale, Jul 31 2013 *)