|
%I #49 Mar 06 2023 08:50:58
%S 0,1,2,3,4,5,6,7,8,9,0,11,24,39,56,75,96,119,144,171,0,21,44,69,96,
%T 125,156,189,224,261,0,31,64,99,136,175,216,259,304,351,0,41,84,129,
%U 176,225,276,329,384,441,0,51,104,159,216,275,336,399,464,531
%N a(n) is the product of n and all its decimal digits individually except the leftmost digit.
%C First differs from A067079 at n=102: A067079(102) = 408 != a(102) = 0.
%H Jacob Swales, <a href="/A321243/b321243.txt">Table of n, a(n) for n = 0..10000</a>
%e a(33) = 33*3 = 99. a(234) = 234*3*4 = 2808.
%t a[n_] := n * If[n<10, 1, Times@@Rest[IntegerDigits[n]]]; Array[a, 100, 0] (* _Amiram Eldar_, Nov 15 2018 *)
%t Table[n Times@@Rest[IntegerDigits[n]],{n,0,60}] (* _Harvey P. Dale_, Mar 06 2023 *)
%o (Python 3) for letter in range(len(str(n))):
%o if letter != 0:
%o seq_num = seq_num * int(n[letter])
%o ##seq_num = a(n)
%Y Cf. A067079.
%K nonn,base
%O 0,3
%A _Jacob Swales_, Nov 14 2018
|
