login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

If n = 10k+m (0 <= m <= 9) then a(n) = n*k^m.
1

%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