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 A079891 #8 Oct 18 2019 00:20:41
%S A079891 1,2,1,4,1,2,1,8,3,2,1,4,1,2,3,16,1,6,1,4,3,1,1,8,1,1,9,4,1,6,1,32,3,
%T A079891 2,7,12,1,2,3,8,1,6,1,2,9,2,1,16,1,2,1,2,1,18,1,8,3,1,1,12,1,1,9,64,1,
%U A079891 3,1,1,1,1,1,24,1,1,3,1,1,3,1,16,27,2,1,12,1,2,1,4,1,18,1,4,1,2,1,32,1,2,1
%N A079891 a(n) = gcd(n, A079890(n)).
%H A079891 Harvey P. Dale, <a href="/A079891/b079891.txt">Table of n, a(n) for n = 1..1000</a>
%t A079891 lng[n_]:=Module[{x=n+1,pon=PrimeOmega[n]},While[PrimeOmega[x]-pon! = 1, x++]; x];Table[GCD[n,lng[n]],{n,100}] (* _Harvey P. Dale_, Jun 10 2013 *)
%Y A079891 Cf. A079893, A079894.
%K A079891 nonn
%O A079891 1,2
%A A079891 _Reinhard Zumkeller_, Jan 14 2003