A297330 -id:A297330 - cp's OEIS frontend

A297254 Numbers whose base-4 digits have greater up-variation than down-variation; see Comments.

6, 7, 11, 18, 19, 22, 23, 26, 27, 30, 31, 35, 39, 43, 47, 66, 67, 70, 71, 74, 75, 78, 79, 82, 83, 86, 87, 90, 91, 94, 95, 98, 99, 102, 103, 106, 107, 110, 111, 114, 115, 118, 119, 122, 123, 126, 127, 131, 135, 139, 143, 147, 151, 155, 159, 163, 167, 171, 175

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			175 in base-4:  2,2,3,3, having DV = 0, UV = 1, so that 175 is in the sequence.

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

Cf. A297330, A297252, A297253.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 4; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297252 *)
Take[Flatten[Position[w, 0]], 120]    (* A297253 *)
Take[Flatten[Position[w, 1]], 120]    (* A297254 *)

A297255 Numbers whose base-5 digits have greater down-variation than up-variation; see Comments.

Original entry on oeis.org

5, 10, 11, 15, 16, 17, 20, 21, 22, 23, 25, 30, 35, 40, 45, 50, 51, 55, 56, 60, 61, 65, 66, 70, 71, 75, 76, 77, 80, 81, 82, 85, 86, 87, 90, 91, 92, 95, 96, 97, 100, 101, 102, 103, 105, 106, 107, 108, 110, 111, 112, 113, 115, 116, 117, 118, 120, 121, 122, 123

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			123 in base-5:  4,4,3, having DV = 1, UV = 0, so that 123 is in the sequence.

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

Cf. A297330, A297256, A297257.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 5; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297255 *)
Take[Flatten[Position[w, 0]], 120]    (* A297256 *)
Take[Flatten[Position[w, 1]], 120]    (* A297257 *)

A297256 Numbers whose base-5 digits have equal down-variation and up-variation; see Comments.

Original entry on oeis.org

1, 2, 3, 4, 6, 12, 18, 24, 26, 31, 36, 41, 46, 52, 57, 62, 67, 72, 78, 83, 88, 93, 98, 104, 109, 114, 119, 124, 126, 131, 136, 141, 146, 151, 156, 161, 166, 171, 176, 181, 186, 191, 196, 201, 206, 211, 216, 221, 226, 231, 236, 241, 246, 252, 257, 262, 267

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			267 in base-5:  2,0,3,2, having DV = 3, UV = 3, so that 267 is in the sequence.

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

Cf. A297330, A297255, A297257.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 5; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297255 *)
Take[Flatten[Position[w, 0]], 120]    (* A297256 *)
Take[Flatten[Position[w, 1]], 120]    (* A297257 *)

A297257 Numbers whose base-5 digits have greater up-variation than down-variation; see Comments.

Original entry on oeis.org

7, 8, 9, 13, 14, 19, 27, 28, 29, 32, 33, 34, 37, 38, 39, 42, 43, 44, 47, 48, 49, 53, 54, 58, 59, 63, 64, 68, 69, 73, 74, 79, 84, 89, 94, 99, 127, 128, 129, 132, 133, 134, 137, 138, 139, 142, 143, 144, 147, 148, 149, 152, 153, 154, 157, 158, 159, 162, 163

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			163 in base-5:  1,1,2,3, having DV = 0, UV = 2, so that 163 is in the sequence.

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

Cf. A297330, A297255, A297256.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 5; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297255 *)
Take[Flatten[Position[w, 0]], 120]    (* A297256 *)
Take[Flatten[Position[w, 1]], 120]    (* A297257 *)

A297258 Numbers whose base-6 digits have greater down-variation than up-variation; see Comments.

Original entry on oeis.org

6, 12, 13, 18, 19, 20, 24, 25, 26, 27, 30, 31, 32, 33, 34, 36, 42, 48, 54, 60, 66, 72, 73, 78, 79, 84, 85, 90, 91, 96, 97, 102, 103, 108, 109, 110, 114, 115, 116, 120, 121, 122, 126, 127, 128, 132, 133, 134, 138, 139, 140, 144, 145, 146, 147, 150, 151, 152

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			152 in base-6:  4,1,2, having DV = 3, UV = 1, so that 152 is in the sequence.

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

Cf. A297330, A297259, A297260.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 6; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297258 *)
Take[Flatten[Position[w, 0]], 120]    (* A297259 *)
Take[Flatten[Position[w, 1]], 120]    (* A297260 *)

A297259 Numbers whose base-6 digits have equal down-variation and up-variation; see Comments.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 14, 21, 28, 35, 37, 43, 49, 55, 61, 67, 74, 80, 86, 92, 98, 104, 111, 117, 123, 129, 135, 141, 148, 154, 160, 166, 172, 178, 185, 191, 197, 203, 209, 215, 217, 223, 229, 235, 241, 247, 253, 259, 265, 271, 277, 283, 289, 295, 301, 307, 313

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			313 in base-6:  1,2,4,1, having DV = 3, UV = 3, so that 313 is in the sequence.

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

Cf. A297330, A297258, A297260.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 6; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297258 *)
Take[Flatten[Position[w, 0]], 120]    (* A297259 *)
Take[Flatten[Position[w, 1]], 120]    (* A297260 *)

A297260 Numbers whose base-6 digits have greater up-variation than down-variation; see Comments.

Original entry on oeis.org

8, 9, 10, 11, 15, 16, 17, 22, 23, 29, 38, 39, 40, 41, 44, 45, 46, 47, 50, 51, 52, 53, 56, 57, 58, 59, 62, 63, 64, 65, 68, 69, 70, 71, 75, 76, 77, 81, 82, 83, 87, 88, 89, 93, 94, 95, 99, 100, 101, 105, 106, 107, 112, 113, 118, 119, 124, 125, 130, 131, 136

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			136 in base-6:  3,4,4, having DV = 0, UV = 1, so that 136 is in the sequence.

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

Cf. A297330, A297258, A297259.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 6; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297258 *)
Take[Flatten[Position[w, 0]], 120]    (* A297259 *)
Take[Flatten[Position[w, 1]], 120]    (* A297260 *)

A297261 Numbers whose base-7 digits have greater down-variation than up-variation; see Comments.

Original entry on oeis.org

7, 14, 15, 21, 22, 23, 28, 29, 30, 31, 35, 36, 37, 38, 39, 42, 43, 44, 45, 46, 47, 49, 56, 63, 70, 77, 84, 91, 98, 99, 105, 106, 112, 113, 119, 120, 126, 127, 133, 134, 140, 141, 147, 148, 149, 154, 155, 156, 161, 162, 163, 168, 169, 170, 175, 176, 177, 182

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			182 in base-7:  3,5,0, having DV = 5, UV = 2, so that 182 is in the sequence.

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

Cf. A297330, A297262, A297263.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 7; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297261 *)
Take[Flatten[Position[w, 0]], 120]    (* A297262 *)
Take[Flatten[Position[w, 1]], 120]    (* A297263 *)

Name corrected by Ray Goldman, Aug 10 2024

A297262 Numbers whose base-7 digits have equal up-variation and down-variation; see Comments.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 16, 24, 32, 40, 48, 50, 57, 64, 71, 78, 85, 92, 100, 107, 114, 121, 128, 135, 142, 150, 157, 164, 171, 178, 185, 192, 200, 207, 214, 221, 228, 235, 242, 250, 257, 264, 271, 278, 285, 292, 300, 307, 314, 321, 328, 335, 342, 344, 351, 358

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			358 in base-7:  1,0,2,1, having DV = 2, UV = 2, so that 358 is in the sequence.

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

Cf. A297330, A297261, A297263.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 7; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297261 *)
Take[Flatten[Position[w, 0]], 120]    (* A297262 *)
Take[Flatten[Position[w, 1]], 120]    (* A297263 *)

A297263 Numbers whose base-7 digits have greater up-variation than down-variation; see Comments.

Original entry on oeis.org

9, 10, 11, 12, 13, 17, 18, 19, 20, 25, 26, 27, 33, 34, 41, 51, 52, 53, 54, 55, 58, 59, 60, 61, 62, 65, 66, 67, 68, 69, 72, 73, 74, 75, 76, 79, 80, 81, 82, 83, 86, 87, 88, 89, 90, 93, 94, 95, 96, 97, 101, 102, 103, 104, 108, 109, 110, 111, 115, 116, 117, 118

Offset: 1

Clark Kimberling, Jan 15 2018

Suppose that n has base-b digits b(m), b(m-1), ..., b(0). The base-b down-variation of n is the sum DV(n,b) of all d(i)-d(i-1) for which d(i) > d(i-1); the base-b up-variation of n is the sum UV(n,b) of all d(k-1)-d(k) for which d(k) < d(k-1). The total base-b variation of n is the sum TV(n,b) = DV(n,b) + UV(n,b). See the guide at A297330.

			118 in base-7:  2,2,6, having DV = 0, UV = 4, so that 118 is in the sequence.

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

Cf. A297330, A297261, A297262.

g[n_, b_] := Map[Total, GatherBy[Differences[IntegerDigits[n, b]], Sign]];
x[n_, b_] := Select[g[n, b], # < 0 &]; y[n_, b_] := Select[g[n, b], # > 0 &];
b = 7; z = 2000; p = Table[x[n, b], {n, 1, z}]; q = Table[y[n, b], {n, 1, z}];
w = Sign[Flatten[p /. {} -> {0}] + Flatten[q /. {} -> {0}]];
Take[Flatten[Position[w, -1]], 120]   (* A297261 *)
Take[Flatten[Position[w, 0]], 120]    (* A297262 *)
Take[Flatten[Position[w, 1]], 120]    (* A297263 *)

cp's OEIS Frontend

A297254 Numbers whose base-4 digits have greater up-variation than down-variation; see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A297255 Numbers whose base-5 digits have greater down-variation than up-variation; see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A297256 Numbers whose base-5 digits have equal down-variation and up-variation; see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A297257 Numbers whose base-5 digits have greater up-variation than down-variation; see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A297258 Numbers whose base-6 digits have greater down-variation than up-variation; see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A297259 Numbers whose base-6 digits have equal down-variation and up-variation; see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A297260 Numbers whose base-6 digits have greater up-variation than down-variation; see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A297261 Numbers whose base-7 digits have greater down-variation than up-variation; see Comments.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs