This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A032863 #20 Oct 10 2018 09:07:15 %S A032863 0,1,2,3,4,5,6,7,8,16,17,24,25,26,32,33,34,35,40,41,42,43,44,48,49,50, %T A032863 51,52,53,56,57,58,59,60,61,62,65,66,67,68,69,70,71,129,130,131,132, %U A032863 133,134,135,138,139,140,141,142,143,193,194,195 %N A032863 Numbers whose base-8 representation Sum_{i=0..m} d(i)*8^i has d(m) > d(m-1) < d(m-2) > ... %C A032863 Base-8 digits must be strictly alternating in size: every other digit must be strictly less than its neighbor(s). Also: numbers whose base-8 expansion, considered as a decimal number, is in A032865 = the base-10 variant of this sequence. - _M. F. Hasler_, Oct 05 2018 %e A032863 From _M. F. Hasler_, Oct 05 2018: (Start) %e A032863 The base-8 representation of 7, 8, 16, 17, 24, 25, 26, 32, 33 is 7, 10, 20, 21, 30, 31, 32, 40, 41. %e A032863 Numbers 61, 62, 65, 66, ..., 70, 71, 129, 130, ... have the base-8 expansion 76, 77, 101, 102, ..., 106, 107, 201, 202, ... (End) %t A032863 sdQ[n_]:=Module[{s=Sign[Differences[IntegerDigits[n, 8]]]}, s==PadRight[{}, Length[s], {-1, 1}]]; Select[Range[0, 700], sdQ] (* _Vincenzo Librandi_, Oct 06 2018 *) %o A032863 (PARI) is(n)=!for(i=2,#n=digits(n,8),(n[i-1]-n[i])*(-1)^i>0||return) \\ _M. F. Hasler_, Oct 05 2018 %Y A032863 Cf. A032858, A032859, A032860, A032861, A032862, this sequence, A032864, A032865 for bases 3 to 10. %K A032863 nonn,base %O A032863 1,3 %A A032863 _Clark Kimberling_ %E A032863 a(1) = 0 added by _Vincenzo Librandi_, Oct 06 2018