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 A325525 #12 Nov 26 2020 03:18:29 %S A325525 1,2,2,7,5,1,6,1,2,3,3,3,1,2,2,4,3,1,2,2,1,7,2,2,1,3,3,1,2,9,1,4,1,3, %T A325525 4,2,2,1,6,3,2,7,1,4,1,6,1,2,2,1,6,1,2,2,7,5,1,7,2,3,3,3,1,2,2,1,6,1, %U A325525 4,1,9,2,1,6,1,2,9,1,4,1,3,3,1,2,2,1 %N A325525 Difference sequence of A325432. %C A325525 See A325417 for a guide to related sequences. %C A325525 Conjecture: every term is in {1,2,3,4,5,6,7,9}; note that 8 is missing. %H A325525 Clark Kimberling, <a href="/A325525/b325525.txt">Table of n, a(n) for n = 1..10000</a> %F A325525 Asymptotic mean: lim_{n->oo} (1/n) * Sum_{k=1..n} a(k) = 20/7. - _Amiram Eldar_, Nov 26 2020 %t A325525 a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or, %t A325525 Map[MemberQ[a, #] &, Select[Flatten[{#/3, #/4}], %t A325525 IntegerQ]]] &]], {20000}]; a; (* A315431 *) %t A325525 c = Complement[Range[Last[a]], a] ; (* A325432 *) %t A325525 Differences[a] (* A325524 *) %t A325525 Differences[c] (* A325525 *) %t A325525 (* _Peter J. C. Moses_, Apr 23 2019 *) %Y A325525 Cf. A325417, A325432, A325524. %K A325525 nonn,easy %O A325525 1,2 %A A325525 _Clark Kimberling_, May 06 2019