login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A128212 a(n) = Sum_digits(p), where p is the product of the digits of n. 2

%I #26 Sep 26 2023 21:54:21

%S 1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,2,4,6,8,1,3,5,7,9,0,3,6,9,3,

%T 6,9,3,6,9,0,4,8,3,7,2,6,10,5,9,0,5,1,6,2,7,3,8,4,9,0,6,3,9,6,3,9,6,

%U 12,9,0,7,5,3,10,8,6,13,11,9,0,8,7,6,5,4,12,11,10,9,0,9,9,9,9,9,9,9,9,9,0

%N a(n) = Sum_digits(p), where p is the product of the digits of n.

%C The sequence grows very slowly. For n <= 10000 the maximal value is 27.

%H Marius A. Burtea, <a href="/A128212/b128212.txt">Table of n, a(n) for n = 1..6000</a>

%F a(n) = A007953(A007954(n)). - _Michel Marcus_, Jun 07 2019 [Corrected by _Sean A. Irvine_, Sep 26 2023]

%e a(73) = 3 because 7*3 = 21 and 2+1 = 3.

%p P:=proc(n) local i,k,w; for i from 1 by 1 to n do w:=1;k:=i; while k>0 do w:=w*(k-(trunc(k/10)*10)); k:=trunc(k/10); od; k:=w; w:=0; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; print(w); od; end: P(100);

%t Table[Total[IntegerDigits[Times@@IntegerDigits[n]]],{n,100}] (* _Harvey P. Dale_, Feb 08 2013 *)

%o (Magma) [&+Intseq((&*(Intseq(n)))):n in [1..100]]; // _Marius A. Burtea_, Jun 06 2019

%o (PARI) a(n) = sumdigits(vecprod(digits(n))); \\ _Michel Marcus_, Jun 07 2019

%Y Cf. A007953, A007954.

%K easy,nonn,base

%O 1,2

%A _Paolo P. Lava_ and _Giorgio Balzarotti_, May 03 2007

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 14:38 EDT 2024. Contains 371254 sequences. (Running on oeis4.)