Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #21 May 02 2015 20:10:13
%S 0,0,0,0,0,0,0,0,0,10,11,12,13,14,15,16,17,18,19,20,42,88,184,384,800,
%T 1664,3456,7168,14848,30,93,288,891,2754,8505,26244,80919,249318,
%U 767637,40,164,672,2752,11264,46080,188416,770048,3145728,12845056,50,255,1300,6625
%N If n = 10k+m (0 <= m <= 9) then a(n) = n*k^m.
%H Reinhard Zumkeller, <a href="/A256556/b256556.txt">Table of n, a(n) for n = 1..10000</a>
%e 10 yields 10*(1^0) = 10;
%e 43 yields 43*(4^3)= 43*64=2754;
%e 68 yields 68*(6^8)= 68*1679616 = 114213888.
%p f:=proc(n) local k,m; m := (n mod 10); k := (n-m)/10; n*k^m; end;
%p [seq(f(n),n=1..40)];
%o (Haskell)
%o a256556 n = n * uncurry (^) (divMod n 10)
%o -- _Reinhard Zumkeller_, May 02 2015
%K nonn,look
%O 1,10
%A _Andy Edwards_, Apr 01 2015
%E Entry revised by _N. J. A. Sloane_, May 02 2015