The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A045503 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A045503

If decimal expansion of n is ab...d, a(n) = a^a + b^b +...+ d^d.
(history; published version)

#20 by Michael De Vlieger at Tue Oct 01 13:16:56 EDT 2024

STATUS

reviewed

approved

#19 by Michel Marcus at Tue Oct 01 12:26:55 EDT 2024

STATUS

proposed

reviewed

#18 by M. F. Hasler at Tue Oct 01 11:15:05 EDT 2024

STATUS

editing

proposed

#17 by M. F. Hasler at Tue Oct 01 11:14:58 EDT 2024

CROSSREFS

Cf. A045512 (excludes zero digits).

STATUS

proposed

editing

#16 by M. F. Hasler at Tue Oct 01 10:34:40 EDT 2024

STATUS

editing

proposed

#15 by M. F. Hasler at Tue Oct 01 10:34:08 EDT 2024

PROG

(PARI) apply( {A045503(n)=vecsum([d^d|d<-digits(n+!n)])}, [0..44]) \\ M. F. Hasler, Oct 01 2024

STATUS

approved

editing

#14 by Alois P. Heinz at Fri Apr 29 19:54:50 EDT 2022

STATUS

editing

approved

#13 by Alois P. Heinz at Fri Apr 29 19:54:36 EDT 2022

MAPLE

a:= n-> add(i^i, i=convert(n, base, 10)):

seq(a(n), n=0..42); # Alois P. Heinz, Apr 29 2022

#12 by Alois P. Heinz at Fri Apr 29 19:54:00 EDT 2022

DATA

1, 1, 4, 27, 256, 3125, 46656, 823543, 16777216, 387420489, 2, 2, 5, 28, 257, 3126, 46657, 823544, 16777217, 387420490, 5, 5, 8, 31, 260, 3129, 46660, 823547, 16777220, 387420493, 28, 28, 31, 54, 283, 3152, 46683, 823570, 16777243, 387420516, 257, 257, 260

STATUS

approved

editing

#11 by Charles R Greathouse IV at Wed Oct 07 17:27:58 EDT 2015

STATUS

editing

approved