|
|
A113608
|
|
Apply the map k -> A040115(k) repeatedly to n until a single digit is reached.
|
|
1
|
|
|
1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, 3, 2, 1, 0, 1, 2, 3, 4, 5, 6, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 7, 6, 5, 4, 3, 2, 1, 0, 1, 2, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
10,4
|
|
COMMENTS
|
Leading zeros at any intermediate result are discarded. The first terms, from n=10 to n=99, are identical to A040115. - R. J. Mathar, Aug 28 2007
|
|
LINKS
|
|
|
EXAMPLE
|
a(1237584965)=1 from 6-fold application of A040115: 1237584965->114234531 -> 3211122 -> 110010 -> 01011=1011 -> 110 -> 01 -> 1.
|
|
MAPLE
|
A040115 := proc(n) local digs, digsdiff, i; digsdiff := [] ; digs := convert(n, base, 10) ; for i from 2 to nops(digs) do digsdiff := [op(digsdiff), abs(op(i, digs)-op(i-1, digs))] ; od; add( op(i, digsdiff)*10^(i-1), i=1..nops(digsdiff)) ; end:
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|