A296869 -id:A296869 - cp's OEIS frontend

A296882 Numbers whose base-10 digits d(m), d(m-1), ..., d(0) have #(pits) = #(peaks); see Comments.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67

Offset: 1

Clark Kimberling, Jan 10 2018

A pit is an index i such that d(i-1) > d(i) < d(i+1); a peak is an index i such that d(i-1) < d(i) > d(i+1). The sequences A296882-A296883 partition the natural numbers. See the guides at A296712.  We have a(n) = A000027(n) for n=1..100 but not n=101.
.
Guide to related sequences:
Base    #(pits) = #(peaks)  #(pits) > #(peaks)    #(pits) < #(peaks)
          A296858             A296859               A296860
          A296861             A296862               A296863
          A296864             A296865               A296866
          A296867             A296868               A296869
          A296870             A296871               A296872
          A296873             A296874               A296875
          A296876             A296877               A296878
          A296879             A296880               A296881
         A296882             A296883               A296884
         A296885             A296886               A296887
         A296888             A296889               A296890
         A296891             A296892               A296893
         A296894             A296895               A296896
         A296897             A296898               A296899
         A296900             A296901               A296902
         A296903             A296904               A296905
         A296906             A296907               A296908

			The base-10 digits of 1212 are 1,2,1,2; here #(pits) = 1 and #(peaks) = 1, so 1212 is in the sequence.

Clark Kimberling, Table of n, a(n) for n = 1..10000

Cf. A296882, A296712, A296883, A296884.

z = 200; b = 10;
d[n_] := Differences[Sign[Differences[IntegerDigits[n, b]]]];
Select[Range [z], Count[d[#], -2] == Count[d[#], 2] &]  (* A296882 *)
Select[Range [z], Count[d[#], -2] < Count[d[#], 2] &]   (* A296883 *)
Select[Range [z], Count[d[#], -2] > Count[d[#], 2] &]   (* A296884 *)

Overview table corrected by Georg Fischer, Aug 24 2021

A296867 Numbers whose base-5 digits d(m), d(m-1), ..., d(0) have #(pits) = #(peaks); see Comments.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 30, 31, 32, 33, 34, 37, 38, 39, 43, 44, 49, 50, 55, 56, 60, 61, 62, 63, 64, 68, 69, 74, 75, 80, 81, 85, 86, 87, 90, 91, 92, 93, 94, 99, 100, 105, 106, 110, 111, 112

Offset: 1

Clark Kimberling, Jan 09 2018

A pit is an index i such that d(i-1) > d(i) < d(i+1); a peak is an index i such that d(i-1) < d(i) > d(i+1). The sequences A296867-A296869 partition the natural numbers. See the guides at A296882 and A296712.

			The base-5 digits of 112 are 4,2,2; here #(pits) = 0 and #(peaks) = 0, so 112 is in the sequence.

Clark Kimberling, Table of n, a(n) for n = 1..9999

Cf. A296882, A296712, A296868, A296869.

z = 200; b = 5;
d[n_] := Differences[Sign[Differences[IntegerDigits[n, b]]]];
Select[Range [z], Count[d[#], -2] == Count[d[#], 2] &]  (* A296867 *)
Select[Range [z], Count[d[#], -2] < Count[d[#], 2] &]    (* A296868 *)
Select[Range [z], Count[d[#], -2] > Count[d[#], 2] &]    (* A296869 *)

A296868 Numbers whose base-5 digits d(m), d(m-1), ..., d(0) have #(pits) > #(peaks); see Comments.

Original entry on oeis.org

26, 27, 28, 29, 51, 52, 53, 54, 57, 58, 59, 76, 77, 78, 79, 82, 83, 84, 88, 89, 101, 102, 103, 104, 107, 108, 109, 113, 114, 119, 131, 132, 133, 134, 137, 138, 139, 143, 144, 149, 151, 152, 153, 154, 256, 257, 258, 259, 262, 263, 264, 268, 269, 274, 276, 277

Offset: 1

Clark Kimberling, Jan 09 2018

			The base-5 digits of 277 are 2,1,0,2; here #(pits) = 1 and #(peaks) = 0, so 277 is in the sequence.

Clark Kimberling, Table of n, a(n) for n = 1..10000

Cf. A296882, A296712, A296867, A296869.

z = 200; b = 5;
d[n_] := Differences[Sign[Differences[IntegerDigits[n, b]]]];
Select[Range [z], Count[d[#], -2] == Count[d[#], 2] &]  (* A296867 *)
Select[Range [z], Count[d[#], -2] < Count[d[#], 2] &]   (* A296868 *)
Select[Range [z], Count[d[#], -2] > Count[d[#], 2] &]   (* A296869 *)

cp's OEIS Frontend

A296882 Numbers whose base-10 digits d(m), d(m-1), ..., d(0) have #(pits) = #(peaks); see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A296867 Numbers whose base-5 digits d(m), d(m-1), ..., d(0) have #(pits) = #(peaks); see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A296868 Numbers whose base-5 digits d(m), d(m-1), ..., d(0) have #(pits) > #(peaks); see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica