login
This site is supported by donations to The OEIS Foundation.

 

Logo

The OEIS is looking to hire part-time people to help edit core sequences, upload scanned documents, process citations, fix broken links, etc. - Neil Sloane, njasloane@gmail.com

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A108720 a(n)=a(n-1)+sum of digits(a(n-1))*sum of digits(a(n-2)). 0
1, 1, 2, 4, 12, 24, 42, 78, 168, 393, 618, 843, 1068, 1293, 1518, 1743, 1968, 2328, 2688, 3048, 3408, 3633, 3858, 4218, 4578, 4938, 5514, 5874, 6234, 6594, 6954, 7530, 7890, 8250, 8610, 8835, 9195, 9771, 10347, 10707, 10932, 11157, 11382, 11607, 11832 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

Table of n, a(n) for n=1..45.

EXAMPLE

a(7)=42,sum of digits(42)=6,a(8)=78,sum of digits(78)=15,

a(9)=78+6*15=168

MAPLE

a[1]:=1:a[2]:=1:for n from 3 to 100 do d:=a[n-1]:s:=0:while d>0 do c:=d mod 10:s:=s+c:d:=(d-c)/10 od:e:=a[n-2]:t:=0:while e>0 do c:=e mod 10:t:=t+c:e:=(e-c)/10 od:a[n]:=a[n-1]+s*t od: seq(a[n], n=1..100);

MATHEMATICA

Transpose[NestList[{Last[#], Last[#]+Total[IntegerDigits[Last[#]]] Total[ IntegerDigits[ First[#]]]}&, {1, 1}, 50]][[1]] (* Harvey P. Dale, Dec 09 2011 *)

CROSSREFS

Sequence in context: A163908 A230481 A212169 * A089822 A079352 A089888

Adjacent sequences:  A108717 A108718 A108719 * A108721 A108722 A108723

KEYWORD

easy,base,nonn

AUTHOR

Miklos Kristof, Jun 21 2005

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy .

Last modified May 29 14:18 EDT 2017. Contains 287247 sequences.