|
| |
|
|
A106747
|
|
Replace the odd digits d of n by (d-1)/2 and even digits d by d/2.
|
|
0
| |
|
|
0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 20, 20, 21, 21, 22, 22, 23, 23, 24, 24, 20, 20, 21, 21, 22, 22, 23, 23, 24, 24, 30, 30, 31, 31, 32, 32, 33, 33, 34, 34, 30, 30, 31, 31, 32, 32
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,5
|
|
|
COMMENTS
| Terms are repeated. Differs from A004526 and A021895 starting with a(11)=0, A004526(11)=A021895(11)=5.
|
|
|
MATHEMATICA
| a[n_]:=FromDigits[Map[If[Mod[ #, 2]==1, (#-1)/2, #/2]&, IntegerDigits[n]]]; Table[a[n], {n, 0, 100}]
|
|
|
CROSSREFS
| Cf. A004526, A021895, A107128, A107130.
Sequence in context: A110676 A117171 A084054 * A083447 A059998 A036041
Adjacent sequences: A106744 A106745 A106746 * A106748 A106749 A106750
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), May 12 2005
|
| |
|
|
