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 A285374 #4 Apr 26 2017 21:43:17 %S A285374 4,8,12,14,18,22,26,28,32,36,40,42,46,48,52,56,60,62,66,70,74,76,80, %T A285374 84,88,90,94,96,100,104,108,110,114,118,122,124,128,132,136,138,142, %U A285374 144,148,152,156,158,162,164,168,172,176,178,182,186,190,192,196,200 %N A285374 Positions of 0 in A285373; complement of A285375. %C A285374 Conjecture: -4 < n*sqrt(2) - a(n) < 1 for n>=1. %H A285374 Clark Kimberling, <a href="/A285374/b285374.txt">Table of n, a(n) for n = 1..10000</a> %e A285374 As a word, A285373 = 11101110..., in which 0 is in positions 4,8,12,14,... %t A285374 s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 1, 0}}] &, {0}, 10] (* A285373 *) %t A285374 Flatten[Position[s, 0]] (* A285374 *) %t A285374 Flatten[Position[s, 1]] (* A285375 *) %Y A285374 Cf. A284373, A285375, A285376, A285377. %K A285374 nonn,easy %O A285374 1,1 %A A285374 _Clark Kimberling_, Apr 26 2017