cp's OEIS Frontend

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.

Previous Showing 51-60 of 90 results. Next

A297275 Numbers whose base-11 digits have greater up-variation than down-variation; see Comments.

Original entry on oeis.org

13, 14, 15, 16, 17, 18, 19, 20, 21, 25, 26, 27, 28, 29, 30, 31, 32, 37, 38, 39, 40, 41, 42, 43, 49, 50, 51, 52, 53, 54, 61, 62, 63, 64, 65, 73, 74, 75, 76, 85, 86, 87, 97, 98, 109, 123, 124, 125, 126, 127, 128, 129, 130, 131, 134, 135, 136, 137, 138, 139
Offset: 1

Views

Author

Clark Kimberling, Jan 16 2018

Keywords

Comments

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.

Examples

			139 in base-11:  1,1,7, having DV = 0, UV = 6, so that 139 is in the sequence.

Links

Crossrefs

Cf. A297330, A297273, A297274.

Programs

  • Mathematica
    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 = 11; 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]   (* A297273 *)
Take[Flatten[Position[w, 0]], 120]    (* A297274 *)
Take[Flatten[Position[w, 1]], 120]    (* A297275 *)

A297276 Numbers whose base-12 digits have greater down-variation than up-variation; see Comments.

Original entry on oeis.org

12, 24, 25, 36, 37, 38, 48, 49, 50, 51, 60, 61, 62, 63, 64, 72, 73, 74, 75, 76, 77, 84, 85, 86, 87, 88, 89, 90, 96, 97, 98, 99, 100, 101, 102, 103, 108, 109, 110, 111, 112, 113, 114, 115, 116, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 132, 133, 134
Offset: 1

Views

Author

Clark Kimberling, Jan 16 2018

Keywords

Comments

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.
Differs from A296749 first at 168 = 120_12, which is in not in A296749 because it has the same number of rises and falls, but in here because DV(168,12) =2 > UV(168,12) =1. - R. J. Mathar, Jan 23 2018

Examples

			134 in base-12:  11,2, having DV = 9, UV = 0, so that 134 is in the sequence.

Links

Crossrefs

Cf. A297330, A297277, A297278.

Programs

  • Mathematica
    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 = 12; 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]   (* A297276 *)
Take[Flatten[Position[w, 0]], 120]    (* A297277 *)
Take[Flatten[Position[w, 1]], 120]    (* A297278 *)

A297277 Numbers whose base-12 digits have equal down-variation and up-variation; see Comments.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 26, 39, 52, 65, 78, 91, 104, 117, 130, 143, 145, 157, 169, 181, 193, 205, 217, 229, 241, 253, 265, 277, 290, 302, 314, 326, 338, 350, 362, 374, 386, 398, 410, 422, 435, 447, 459, 471, 483, 495, 507, 519, 531, 543, 555
Offset: 1

Views

Author

Clark Kimberling, Jan 16 2018

Keywords

Comments

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.
Differs first from A029957 after the zero for 1741 = 1011_12, which is not a palindrome in base 12 but has DV(1741,12) = UV(1741,12) =1. - R. J. Mathar, Jan 23 2018

Examples

			555 in base-12:  3,10,3, having DV = 7, UV = 7, so that 555 is in the sequence.

Links

Crossrefs

Cf. A297330, A297276, A297278.

Programs

  • Mathematica
    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 = 12; 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]   (* A297276 *)
Take[Flatten[Position[w, 0]], 120]    (* A297277 *)
Take[Flatten[Position[w, 1]], 120]    (* A297278 *)

A297278 Numbers whose base-12 digits have greater up-variation than down-variation; see Comments.

Original entry on oeis.org

14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 27, 28, 29, 30, 31, 32, 33, 34, 35, 40, 41, 42, 43, 44, 45, 46, 47, 53, 54, 55, 56, 57, 58, 59, 66, 67, 68, 69, 70, 71, 79, 80, 81, 82, 83, 92, 93, 94, 95, 105, 106, 107, 118, 119, 131, 146, 147, 148, 149, 150, 151
Offset: 1

Views

Author

Clark Kimberling, Jan 17 2018

Keywords

Comments

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.

Examples

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

Links

Crossrefs

Cf. A297330, A297276, A297277.

Programs

  • Mathematica
    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 = 12; 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]   (* A297276 *)
Take[Flatten[Position[w, 0]], 120]    (* A297277 *)
Take[Flatten[Position[w, 1]], 120]    (* A297278 *)

A297279 Numbers whose base-13 digits have greater down-variation than up-variation; see Comments.

Original entry on oeis.org

13, 26, 27, 39, 40, 41, 52, 53, 54, 55, 65, 66, 67, 68, 69, 78, 79, 80, 81, 82, 83, 91, 92, 93, 94, 95, 96, 97, 104, 105, 106, 107, 108, 109, 110, 111, 117, 118, 119, 120, 121, 122, 123, 124, 125, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 143, 144
Offset: 1

Views

Author

Clark Kimberling, Jan 17 2018

Keywords

Comments

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.
Differs from A296752 first for 195 = 120_13, which has the same number of rises and falls and is therefore not in A296752, but has DV(195,13) =2 > UV(195,13) = 1 and is in this sequence. - R. J. Mathar, Jan 23 2018

Examples

			144 in base-13:  11,1, having DV = 10, UV = 0, so that 144 is in the sequence.

Links

Crossrefs

Cf. A297330, A297280, A297281.

Programs

  • Mathematica
    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 = 13; 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]   (* A297279 *)
Take[Flatten[Position[w, 0]], 120]    (* A297280 *)
Take[Flatten[Position[w, 1]], 120]    (* A297281 *)

A297280 Numbers whose base-13 digits have equal down-variation and up-variation; see Comments.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 28, 42, 56, 70, 84, 98, 112, 126, 140, 154, 168, 170, 183, 196, 209, 222, 235, 248, 261, 274, 287, 300, 313, 326, 340, 353, 366, 379, 392, 405, 418, 431, 444, 457, 470, 483, 496, 510, 523, 536, 549, 562, 575, 588
Offset: 1

Views

Author

Clark Kimberling, Jan 17 2018

Keywords

Comments

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.
Differs after the zero from A029958 first for 2211 = 1011_13, which is not a palindrome in base 13 but has DV(2211,13) = UV(2211,13) =1. - R. J. Mathar, Jan 23 2018

Examples

			588 in base-13:  3,6,3, having DV = 3, UV = 3, so that 588 is in the sequence.

Links

Crossrefs

Cf. A297330, A297279, A297281.

Programs

  • Mathematica
    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 = 13; 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]   (* A297279 *)
Take[Flatten[Position[w, 0]], 120]    (* A297280 *)
Take[Flatten[Position[w, 1]], 120]    (* A297281 *)

A297281 Numbers whose base-13 digits have greater up-variation than down-variation; see Comments.

Original entry on oeis.org

15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 43, 44, 45, 46, 47, 48, 49, 50, 51, 57, 58, 59, 60, 61, 62, 63, 64, 71, 72, 73, 74, 75, 76, 77, 85, 86, 87, 88, 89, 90, 99, 100, 101, 102, 103, 113, 114, 115, 116, 127, 128
Offset: 1

Views

Author

Clark Kimberling, Jan 17 2018

Keywords

Comments

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.
Differs from A296751 for example at 171 = 102_13, which is in this sequence because UV(171,13) = 2 > DV(171,13)=1, but not in A296751 because the number of rises and falls are equal. - R. J. Mathar, Jan 23 2018

Examples

			128 in base-13:  9,11, having DV = 0, UV = 2, so that 28 is in the sequence.

Links

Crossrefs

Cf. A297330, A297279, A297280.

Programs

  • Mathematica
    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 = 13; 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]   (* A297279 *)
Take[Flatten[Position[w, 0]], 120]    (* A297280 *)
Take[Flatten[Position[w, 1]], 120]    (* A297281 *)

A297282 Numbers whose base-14 digits have greater down-variation than up-variation; see Comments.

Original entry on oeis.org

14, 28, 29, 42, 43, 44, 56, 57, 58, 59, 70, 71, 72, 73, 74, 84, 85, 86, 87, 88, 89, 98, 99, 100, 101, 102, 103, 104, 112, 113, 114, 115, 116, 117, 118, 119, 126, 127, 128, 129, 130, 131, 132, 133, 134, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 154
Offset: 1

Views

Author

Clark Kimberling, Jan 17 2018

Keywords

Comments

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.
Differs from A296755 first for 224 = 120_14, which is in this sequence because DV(224,14) = 2 > UV(224,14)=1, but not in A296755 because the number of rises equals the number of falls. - R. J. Mathar, Jan 23 2018

Examples

			154 in base-14:  11,0 having DV = 9, UV = 0, so that 154 is in the sequence.

Links

Crossrefs

Cf. A297330, A297283, A297284.

Programs

  • Mathematica
    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 = 14; 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]   (* A297282 *)
Take[Flatten[Position[w, 0]], 120]    (* A297283 *)
Take[Flatten[Position[w, 1]], 120]    (* A297284 *)

A297283 Numbers whose base-14 digits have equal down-variation and up-variation; see Comments.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195, 197, 211, 225, 239, 253, 267, 281, 295, 309, 323, 337, 351, 365, 379, 394, 408, 422, 436, 450, 464, 478, 492, 506, 520, 534, 548, 562, 576, 591, 605, 619
Offset: 1

Views

Author

Clark Kimberling, Jan 17 2018

Keywords

Comments

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.
Differs first from A029959 after the zero for 2759 = 1011_14, which is not a palindrome in base 14 but has UV(2759,14) = DV(2759,14) = 1. - R. J. Mathar, Jan 23 2018

Examples

			619 in base-14:  3,2,3 having DV = 1, UV = 1, so that 619 is in the sequence.

Links

Crossrefs

Cf. A297330, A297282, A297284.

Programs

  • Mathematica
    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 = 14; 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]   (* A297282 *)
Take[Flatten[Position[w, 0]], 120]    (* A297283 *)
Take[Flatten[Position[w, 1]], 120]    (* A297284 *)

A297284 Numbers whose base-14 digits have greater up-variation than down-variation; see Comments.

Original entry on oeis.org

16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 61, 62, 63, 64, 65, 66, 67, 68, 69, 76, 77, 78, 79, 80, 81, 82, 83, 91, 92, 93, 94, 95, 96, 97, 106, 107, 108, 109, 110, 111
Offset: 1

Views

Author

Clark Kimberling, Jan 17 2018

Keywords

Comments

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.
Differs from A296754 first at 198 =102_14, which is in this sequence because UV(102,14) = 2 > DV(102,14) =1, but has the same number of rises and falls and is not in A296754. - R. J. Mathar, Jan 23 2018

Examples

			111 in base-14:  7,13 having DV = 0, UV = 6, so that 111 is in the sequence.

Links

Crossrefs

Cf. A297330, A297282, A297283.

Programs

  • Mathematica
    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 = 14; 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]   (* A297282 *)
Take[Flatten[Position[w, 0]], 120]    (* A297283 *)
Take[Flatten[Position[w, 1]], 120]    (* A297284 *)
Previous Showing 51-60 of 90 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.