A296875 -id:A296875 - 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

A296873 Numbers whose base-7 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, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 56, 57, 58, 59, 60, 61, 62, 65, 66, 67, 68, 69, 73, 74, 75, 76, 81, 82

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 A296873-A296875 partition the natural numbers. See the guides at A296882 and A296712.

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

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

Cf. A296882, A296712, A296874, A296875.

z = 200; b = 7;
d[n_] := Differences[Sign[Differences[IntegerDigits[n, b]]]];
Select[Range [z], Count[d[#], -2] == Count[d[#], 2] &]  (* A296873 *)
Select[Range [z], Count[d[#], -2] < Count[d[#], 2] &]   (* A296874 *)
Select[Range [z], Count[d[#], -2] > Count[d[#], 2] &]   (* A296875 *)

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

Original entry on oeis.org

50, 51, 52, 53, 54, 55, 99, 100, 101, 102, 103, 104, 107, 108, 109, 110, 111, 148, 149, 150, 151, 152, 153, 156, 157, 158, 159, 160, 164, 165, 166, 167, 197, 198, 199, 200, 201, 202, 205, 206, 207, 208, 209, 213, 214, 215, 216, 221, 222, 223, 246, 247, 248

Offset: 1

Clark Kimberling, Jan 09 2018

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

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

Cf. A296882, A296712, A296873, A296875.

z = 200; b = 7;
d[n_] := Differences[Sign[Differences[IntegerDigits[n, b]]]];
Select[Range [z], Count[d[#], -2] == Count[d[#], 2] &]  (* A296873 *)
Select[Range [z], Count[d[#], -2] < Count[d[#], 2] &]   (* A296874 *)
Select[Range [z], Count[d[#], -2] > Count[d[#], 2] &]   (* A296875 *)

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

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica