|
| |
|
|
A357149
|
|
a(n) = smallest missing number in A357082(k) for k = 0..n.
|
|
0
|
|
|
|
1, 2, 3, 4, 5, 6, 6, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45, 45
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Table of n, a(n) for n=0..70.
Michael De Vlieger, Plot of a(n), n = 1..2^10 in gold, with A357082(n) = b(n) in black, records in b(n) in red, local minima in b(n) in blue.
Rémy Sigrist, PARI program
|
|
|
MATHEMATICA
|
nn = 2^10; c[_] = False; j = a[0] = 0; u = 1; w = "0"; Do[k = u; While[Or[c[k], StringContainsQ[w, Set[v, IntegerString[j + k, 2]]]], k++]; Set[{a[n], c[k], b[n]}, {k, True, u}]; Set[{j, w}, {k, w <> IntegerString[k, 2]}]; If[k == u, While[c[u], u++]], {n, nn}]; Array[b, nn] (* Michael De Vlieger, Sep 15 2022 *)
|
|
|
PROG
|
(PARI) See Links section.
|
|
|
CROSSREFS
|
Cf. A357082.
Sequence in context: A352499 A110010 A091987 * A025544 A327706 A121856
Adjacent sequences: A357146 A357147 A357148 * A357151 A357152 A357153
|
|
|
KEYWORD
|
nonn,new
|
|
|
AUTHOR
|
Michael De Vlieger, Sep 15 2022
|
|
|
STATUS
|
approved
|
| |
|
|
