The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A038558 Smallest number with derivative n. 2
 0, 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; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 0..10000 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} ] PROG (Haskell) import Data.List (elemIndex) import Data.Maybe (fromJust) a038558 = fromJust . (`elemIndex` a038554_list) -- Reinhard Zumkeller, Mar 06 2013 CROSSREFS Cf. A038554-A038556. Sequence in context: A035269 A267703 A277075 * A286031 A027883 A201818 Adjacent sequences:  A038555 A038556 A038557 * A038559 A038560 A038561 KEYWORD nonn,nice,easy AUTHOR EXTENSIONS More terms from Erich Friedman a(0)=0 added and offset adjusted by Reinhard Zumkeller, Mar 06 2013 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 1 16:22 EDT 2020. Contains 337443 sequences. (Running on oeis4.)