|
| |
|
|
A107130
|
|
Replace the odd digits d of n by (d-1)/2!.
|
|
1
| |
|
|
0, 0, 2, 1, 4, 2, 6, 3, 8, 4, 0, 0, 2, 1, 4, 2, 6, 3, 8, 4, 20, 20, 22, 21, 24, 22, 26, 23, 28, 24, 10, 10, 12, 11, 14, 12, 16, 13, 18, 14, 40, 40, 42, 41, 44, 42, 46, 43, 48, 44, 20, 20, 22, 21, 24, 22, 26, 23, 28, 24, 60, 60, 62, 61, 64, 62, 66, 63, 68, 64, 30, 30, 32, 31, 34, 32
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| Differs from A065423 starting with a(11)=10: A065423(11)=10.
|
|
|
MATHEMATICA
| a[n_]:=FromDigits[Map[If[Mod[ #, 2]==1, (#-1)/2, # ]&, IntegerDigits[n]]]; Table[a[n], {n, 0, 100}]
|
|
|
CROSSREFS
| Cf. A065423.
Sequence in context: A099311 A130742 A130107 * A194747 A065423 A008733
Adjacent sequences: A107127 A107128 A107129 * A107131 A107132 A107133
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), May 12 2005
|
|
|
EXTENSIONS
| Edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Aug 03 2010
|
| |
|
|
