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 A252984 #27 Jun 16 2021 15:33:59
%S A252984 4,12,8,24,6,10,16,20,25,3,7,5,22,13,1,19,14,11,27,9,17,2,29,15,21,23,
%T A252984 28,34,30,31,18,35,33,26,32,37,36,38,39,45,42,43,40,49,41,48,46,44,47,
%U A252984 50,51,54,55,53,52,56,57,62,61,60,64,68,67,58,63,70,69,71,65,77,66,72,74,73,59
%N A252984 a(0)=4. a(n) is the smallest number not in the sequence such that Sum_{k=1..n} a(k) divides Product_{k=1..n} a(k).
%C A252984 Conjectured to be a permutation of the natural numbers.
%t A252984 f[lst_List] := Block[{k = 1, s = Plus @@ lst, p = Times @@ lst}, While[ MemberQ[lst, k] || Mod[p*k, s + k] > 0, k++]; Append[ lst, k]]; Nest[f, {3}, 75] (* _Robert G. Wilson v_, Jan 19 2015 *)
%o A252984 (PARI) v=[4]; print1(4,", ");n=1; while(n<100, p=prod(i=1, #v, v[i]); if(p*n\(vecsum(v)+n)==p*n/(vecsum(v)+n)&&!vecsearch(vecsort(v), n), v=concat(v, n); print1(n, ", "); n=0); n++)
%Y A252984 Cf. A127644.
%K A252984 nonn
%O A252984 0,1
%A A252984 _Derek Orr_, Jan 17 2015
%E A252984 Offset corrected by _N. J. A. Sloane_, Jun 16 2021