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 A178094 #13 May 29 2023 11:46:59 %S A178094 1,1,2,3,5,2,7,3,2,5,7,2,3,5,2,7,3,2,5,7,2,3,5,2,7,3,2,5,7,2,3,5,2,7, %T A178094 3,2,5,7,2,3,5,2,7,3,2,5,7,2,3,5,2,7,3,2,5,7,2,3,5,2,7,3,2,5,7,2,3,5, %U A178094 2,7,3,2,5,7,2,3,5,2,7,3,2,5,7,2,3,5,2,7,3,2,5,7,2,3,5,2,7,3,2,5,7,2,3,5,2,7,3,2,5,7 %N A178094 a(1)=a(2)=1; thereafter a(n) = lpf(a(n-1)+a(n-2)), where lpf = "least prime factor". %C A178094 Cycles with a period of length 9. %t A178094 nxt[{a_,b_}]:={b,FactorInteger[a+b][[1,1]]}; NestList[nxt,{1,1},110][[;;,1]] (* or *) PadRight[ {1,1},110,{5,7,2,3,5,2,7,3,2}] (* _Harvey P. Dale_, May 29 2023 *) %Y A178094 Cf. A000045, A175723, A020639, A178095. %K A178094 nonn %O A178094 1,3 %A A178094 _N. J. A. Sloane_, Dec 16 2010