|
Search: id:A038558
|
|
|
| A038558 |
|
Smallest number with derivative n. |
|
+0
1
|
|
| 2, 4, 5, 8, 9, 11, 10, 16, 17, 19, 18, 23, 22, 20, 21, 32, 33, 35, 34, 39, 38, 36, 37, 47, 46, 44, 45, 40, 41, 43, 42, 64, 65, 67, 66, 71, 70, 68, 69, 79, 78, 76, 77, 72, 73, 75, 74, 95, 94, 92, 93, 88, 89, 91, 90, 80, 81, 83, 82, 87, 86, 84, 85, 128, 129, 131, 130, 135, 134
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
dtn[ L_ ] := Fold[ 2#1+#2&, 0, L ]; h[ n_ ] := dtn[ {1}~Join~Table[ Mod[ 1+Apply[ Plus, Take[ IntegerDigits[ n, 2 ], k ] ], 2 ], {k, 1, Length[ IntegerDigits[ n, 2 ] ]} ] ]; Table[ h[ n ], {n, 100} ]
|
|
CROSSREFS
|
Cf. A038554-A038556.
Sequence in context: A010402 A010443 A035269 this_sequence A027883 A047380 A117121
Adjacent sequences: A038555 A038556 A038557 this_sequence A038559 A038560 A038561
|
|
KEYWORD
|
nonn,nice,easy
|
|
AUTHOR
|
njas
|
|
EXTENSIONS
|
More terms from Erich Friedman (erich.friedman(AT)stetson.edu)
|
|
|
Search completed in 0.002 seconds
|
