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.
%I A383427 #11 May 07 2025 00:59:49
%S A383427 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,
%T A383427 47,48,50,53,54,56,57,58,59,62,64,65,67,68,74,75,76,77,79,82,83,85,86,
%U A383427 87,88,91,93,94,95,97,103,104,105,106,109,111,112,114,115
%N A383427 Indices k such that A003849(k) = A383422(k).
%C A383427 Conjecture: {a(n) - a(n-1), n>=2} = {1, 2, 3, 5, 6}.
%F A383427 Ordered union of A383423 and A383424.
%t A383427 wF = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 15]; (* A003849 *)
%t A383427 s[0] = "0"; s[1] = "011"; s[n_] := StringJoin[s[n - 1], s[n - 2]]; (* A383422 *)
%t A383427 wL = Join[{0}, IntegerDigits[FromDigits[s[15]]]];
%t A383427 -1+Select[Range[400], wF[[#]] == wL[[#]] &]
%Y A383427 Cf. A003849, A383422, A383423, A383424, A383425, A383426.
%K A383427 nonn
%O A383427 1,3
%A A383427 _Clark Kimberling_, Apr 27 2025