A386253 a(n) = (smallest digit of n)^(largest digit of n) + n.
1, 2, 6, 30, 260, 3130, 46662, 823550, 16777224, 387420498, 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 20, 22, 26, 31, 40, 57, 90, 155, 284, 541, 30, 32, 40, 60, 115, 278, 765, 2224, 6599, 19722, 40, 42, 58, 124, 300, 1069, 4142, 16431, 65584, 262193, 50
Offset: 0
Examples
a(563) = 1292 because 3^6 + 563 = 1292.
Links
- Mia Boudreau, Table of n, a(n) for n = 0..10000
Programs
-
Maple
f:= proc(n) local L; L:= convert(n,base,10); n + min(L)^max(L) end proc: map(f, [$0..100]); # Robert Israel, Jul 22 2025
-
Mathematica
Unprotect[Power]; 0^0:=1; Protect[Power]; a[n_]:= (Min[IntegerDigits[n]])^(Max[IntegerDigits[n]]) + n; Array[a,51,0] (* Stefano Spezia, Jul 17 2025 *)
-
Python
def a(n): return int(min(s:=str(n)))**int(max(s)) + n print([a(n) for n in range(51)]) # Michael S. Branicky, Jul 21 2025
Comments