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.

Showing 1-4 of 4 results.

A296712 Numbers whose base-10 digits d(m), d(m-1), ..., d(0) have #(rises) = #(falls); see Comments.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 101, 102, 103, 104, 105, 106, 107, 108, 109, 111, 120, 121, 130, 131, 132, 140, 141, 142, 143, 150, 151, 152, 153, 154, 160, 161, 162, 163, 164, 165, 170, 171, 172, 173, 174, 175, 176, 180, 181
Offset: 1

Views

Author

Clark Kimberling, Jan 08 2018

Keywords

Comments

A rise is an index i such that d(i) < d(i+1); a fall is an index i such that d(i) > d(i+1). The sequences A296712-A296714 partition the natural numbers.
****
Guide to related sequences:
Base #(rises) = #(falls) #(rises) > #(falls) #(rises) < #(falls)
2 A005408 (none) A005843
3 A296691 A296692 A296693
4 A296694 A296695 A296696
5 A296697 A296698 A296699
6 A296700 A296701 A296702
7 A296703 A296704 A296705
8 A296706 A296707 A296708
9 A296709 A296710 A296711
10 A296712 A296713 A296714
11 A296744 A296745 A296746
12 A296747 A296748 A296749
13 A296750 A296751 A296752
14 A296753 A296754 A296755
15 A296756 A296757 A296758
16 A296759 A296760 A296761
20 A296762 A296763 A296764
60 A296765 A296766 A296767

Examples

			The base-10 digits of 181 are 1,8,1; here #(rises) = 1 and #(falls) = 1, so 181 is in the sequence.

Links

Crossrefs

Cf. A296713, A296714, A296712.

Programs

  • Mathematica
    z = 200; b = 10; d[n_] := Sign[Differences[IntegerDigits[n, b]]];
Select[Range [z], Count[d[#], -1] == Count[d[#], 1] &] (* A296712 *)
Select[Range [z], Count[d[#], -1] < Count[d[#], 1] &]  (* A296713 *)
Select[Range [z], Count[d[#], -1] > Count[d[#], 1] &]  (* A296714 *)

A296753 Numbers whose base-14 digits d(m), d(m-1), ..., d(0) have #(rises) = #(falls); 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, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 211, 224, 225, 238, 239, 240, 252, 253, 254, 255, 266, 267, 268, 269, 270, 280, 281, 282
Offset: 1

Views

Author

Clark Kimberling, Jan 08 2018

Keywords

Comments

A rise is an index i such that d(i) < d(i+1); a fall is an index i such that d(i) > d(i+1). The sequences A296753-A296755 partition the natural numbers. See the guide at A296712.

Examples

			The base-14 digits of 1000000 are 2,8,6,2,12; here #(rises) = 2 and #(falls) = 2, so 1000000 is in the sequence.

Links

Crossrefs

Cf. A296754, A296755, A296712.

Programs

  • Mathematica
    z = 200; b = 14; d[n_] := Sign[Differences[IntegerDigits[n, b]]];
Select[Range [z], Count[d[#], -1] == Count[d[#], 1] &] (* A296753 *)
Select[Range [z], Count[d[#], -1] < Count[d[#], 1] &]  (* A296754 *)
Select[Range [z], Count[d[#], -1] > Count[d[#], 1] &]  (* A296755 *)
Select[Range[300],Total[Sign[Differences[IntegerDigits[#,14]]]]==0&] (* Harvey P. Dale, Sep 20 2022 *)

A296755 Numbers whose base-14 digits d(m), d(m-1), ..., d(0) have #(rises) < #(falls); 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 08 2018

Keywords

Comments

A rise is an index i such that d(i) < d(i+1); a fall is an index i such that d(i) > d(i+1). The sequences A296753-A296755 partition the natural numbers. See the guide at A296712.

Examples

			The base-14 digits of 10^9 are 9, 6, 11, 4, 11, 6, 11, 6; here #(rises) = 3 and #(falls) = 4, so 10^9 is in the sequence.

Links

Crossrefs

Cf. A296753, A296754, A296712.

Programs

  • Mathematica
    z = 200; b = 14; d[n_] := Sign[Differences[IntegerDigits[n, b]]];
Select[Range [z], Count[d[#], -1] == Count[d[#], 1] &] (* A296753 *)
Select[Range [z], Count[d[#], -1] < Count[d[#], 1] &]  (* A296754 *)
Select[Range [z], Count[d[#], -1] > Count[d[#], 1] &]  (* A296755 *)

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 *)
Showing 1-4 of 4 results.

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

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