Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A122481
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A122481 a(n) = if n < 10 then n else a(digitsum(n)) + digitsum(n), where digitsum(n)=A007953(n), the sum of digits in decimal representation of n. +0
1
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 2, 4, 6, 8, 10, 12, 14, 16, 18, 12, 4, 6, 8, 10, 12, 14, 16, 18, 12, 15, 6, 8, 10, 12, 14, 16, 18, 12, 15, 18, 8, 10, 12, 14, 16, 18, 12, 15, 18, 21, 10, 12, 14, 16, 18, 12, 15, 18, 21, 24, 12, 14, 16, 18, 12, 15, 18, 21, 24, 27, 14, 16, 18, 12, 15, 18 (list; graph; listen)
OFFSET

0,3

LINKS

R. Zumkeller, Table of n, a(n) for n = 0..10000

EXAMPLE

a(49)=a(4+9)+(4+9)=a(13)+13=a(1+3)+(1+3)+13=a(4)+4+13=4+4+13=21.

MAPLE

ds := proc(n) local t1, t2; t1 := n; t2 := 0; while t1 <> 0 do t2 := t2 + (t1 mod 10); t1 := floor(t1/10); od: t2; end;

M:=10000; a:=array(0..M); for n from 0 to 9 do a[n]:=n; lprint(n, a[n]); od: for n from 10 to M do a[n]:=a[ds(n)]+ds(n); lprint(n, a[n]); od:

CROSSREFS

Cf. A010888.

Sequence in context: A049105 A125959 A043269 this_sequence A110805 A061499 A028898

Adjacent sequences: A122478 A122479 A122480 this_sequence A122482 A122483 A122484

KEYWORD

nonn,base

AUTHOR

Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Sep 15 2006

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified November 27 22:38 EST 2009. Contains 167602 sequences.


AT&T Labs Research