login
A297147
Numbers having a down-first zigzag pattern in base 10; see Comments.
15
10, 20, 21, 30, 31, 32, 40, 41, 42, 43, 50, 51, 52, 53, 54, 60, 61, 62, 63, 64, 65, 70, 71, 72, 73, 74, 75, 76, 80, 81, 82, 83, 84, 85, 86, 87, 90, 91, 92, 93, 94, 95, 96, 97, 98, 101, 102, 103, 104, 105, 106, 107, 108, 109, 201, 202, 203, 204, 205, 206, 207
OFFSET
1,1
COMMENTS
A number n having base-b digits d(m), d(m-1),..., d(0) such that d(i) != d(i+1) for 0 <= i < m shows a zigzag pattern of one or more segments, in the following sense. Writing U for up and D for down, there are two kinds of patterns: U, UD, UDU, UDUD, ... and D, DU, DUD, DUDU, ... . In the former case, we say n has an "up-first zigzag pattern in base b"; in the latter, a "down-first zigzag pattern in base b". Example: 2,4,5,3,0,1,4,2 has segments 2,4,5; 5,3,0; 0,1,4; and 4,2, so that 24530142, with pattern UDUD, has an up-first zigzag pattern in base 10, whereas 4,2,5,3,0,1,4,2 has a down-first pattern. The sequences A297146-A297148 partition the natural numbers. See the guide at A297146.
EXAMPLE
Base-10 digits of 65498: 6,5,4,9,8, with pattern DUD, so that 65498 is in the sequence.
MATHEMATICA
a[n_, b_] := Sign[Differences[IntegerDigits[n, b]]]; z = 300;
b = 10; t = Table[a[n, b], {n, 1, 10*z}];
u = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == 1 &] (* A297146 *)
v = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == -1 &] (* A297147 *)
Complement[Range[z], Union[u, v]] (* A297148 *)
CROSSREFS
Sequence in context: A071590 A210589 A296714 * A325198 A098165 A104801
KEYWORD
nonn,easy,base
AUTHOR
Clark Kimberling, Jan 15 2018
STATUS
approved