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 A320118 #9 Nov 26 2018 17:13:40
%S A320118 1,1,2,6,2,24,2,10,6,24,2,144,2,24,24,14,2,144,2,144,24,24,2,240,6,24,
%T A320118 10,144,2,80,2,22,24,24,24,54,2,24,24,240,2,80,2,144,144,24,2,336,6,
%U A320118 144,24,144,2,240,24,240,24,24,2,1728,2,24,144,26,24,80,2,144,24,80,2,360,2,24,144,144,24,80,2,336,14,24,2,1728
%N A320118 a(1) = a(2) = 1; for n > 2, a(n) = A181819(n) * a(A181819(n)).
%H A320118 Antti Karttunen, <a href="/A320118/b320118.txt">Table of n, a(n) for n = 1..10080</a>
%F A320118 a(1) = a(2) = 1; for n > 2, a(n) = A181819(n) * a(A181819(n)).
%t A320118 Nest[Append[#1, #2 #1[[#2]] ] & @@ {#, Times @@ Prime@ FactorInteger[Length@ # + 1][[All, -1]]} &, {1, 1}, 82] (* _Michael De Vlieger_, Nov 25 2018 *)
%o A320118 (PARI)
%o A320118 A181819(n) = factorback(apply(e->prime(e),(factor(n)[,2])));
%o A320118 A320118(n) = if(n<=2,1,A181819(n)*A320118(A181819(n)));
%Y A320118 Cf. A181819, A182850.
%Y A320118 Cf. also A304465, A320016.
%K A320118 nonn
%O A320118 1,3
%A A320118 _Antti Karttunen_, Nov 24 2018