A383427 Indices k such that A003849(k) = A383422(k).

0, 1, 3, 6, 7, 9, 10, 11, 12, 15, 17, 18, 19, 21, 27, 28, 29, 30, 32, 35, 36, 38, 39, 44, 46, 47, 48, 50, 53, 54, 56, 57, 58, 59, 62, 64, 65, 67, 68, 74, 75, 76, 77, 79, 82, 83, 85, 86, 87, 88, 91, 93, 94, 95, 97, 103, 104, 105, 106, 109, 111, 112, 114, 115

Offset: 1

Author

Clark Kimberling, Apr 27 2025

Keywords

• nonn

Comments

Conjecture: {a(n) - a(n-1), n>=2} = {1, 2, 3, 5, 6}.

Crossrefs

Cf. A003849, A383422, A383423, A383424, A383425, A383426.

Programs

Mathematica

wF = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 15];  (* A003849 *)
s[0] = "0"; s[1] = "011"; s[n_] := StringJoin[s[n - 1], s[n - 2]]; (* A383422 *)
wL = Join[{0}, IntegerDigits[FromDigits[s[15]]]];
-1+Select[Range[400], wF[[#]] == wL[[#]] &]

Formula

Ordered union of A383423 and A383424.