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 A323890 #46 Oct 09 2019 13:05:05 %S A323890 1,2,3,5,8,4,12,6,18,9,27,36,63,7,70,10,80,16,96,24,120,15,135,45,180, %T A323890 20,200,25,225,75,300,30,330,11,341,31,372,62,434,14,448,28,476,17, %U A323890 493,29,522,58,580,116,696,87,783,261,1044,174,1218,21,1239,59,1298,22,1320,33,1353 %N A323890 a(1) = 1, a(2) = 2; thereafter a(n+1) = smallest unused divisor of a(n) if there are any, otherwise a(n) + a(n-1). %H A323890 Ivan Neretin, <a href="/A323890/b323890.txt">Table of n, a(n) for n = 1..10000</a> %e A323890 a(6) = 4, and all divisors of 4 are already used, hence a(7) = a(6) + a(5) = 8 + 4 = 12. Now the smallest unused divisor of 12 is 6, hence a(8) = 6. %t A323890 Nest[Append[#, If[(d = Complement[Divisors@#[[-1]], #]) == {}, #[[-1]] + #[[-2]], Min[d]]] &, {1, 2}, 63] %Y A323890 Cf. A050196, A085947. %K A323890 nonn,look %O A323890 1,2 %A A323890 _Ivan Neretin_, Sep 02 2019