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 A356378 #7 Nov 09 2022 19:16:39
%S A356378 1,3,5,2,10,9,15,8,20,19,7,21,31,6,25,14,42,24,16,28,53,39,33,12,23,
%T A356378 63,18,65,76,41,62,47,64,74,59,83,99,58,98,30,60,109,50,66,122,78,91,
%U A356378 84,100,90,129,113,49,108,56,75,71,70,13,132,169,27,149,43
%N A356378 Main diagonal of the RILO variant of the array A035486; this is one of eight such sequences discussed in A007063.
%C A356378 Conjecture: every positive integer occurs exactly once.
%t A356378 rilo = Join[{{1}}, NestList[Join[#[[Riffle[Range[(Length[#] + 3)/2, Length[#]], Range[1, (Length[#] - 1)/2, 1]]]], Range[#, # + 2] &[(3 Length[#] + 1)/2]] &, {2, 3, 4}, 200]]; (* A356378 *)
%t A356378 s = Map[{#, Take[Flatten[Map[Take[#, {(Length[#] + 1)/2}] &, #]], 150] &[
%t A356378 ToExpression[#]]} &, {"rilo"}];
%t A356378 Last[First[s]] (* A356378 *)
%t A356378 (* _Peter J. C. Moses_,Jul 26 2022 *)
%t A356378 (* The next program generates the RILO array. *)
%t A356378 len = 8; rilo = Join[{{1}}, NestList[Join[#[[Riffle[Range[(Length[#] + 3)/2, Length[#]],
%t A356378 Range[1, (Length[#] - 1)/2, 1]]]],
%t A356378 Range[#, # + 2] &[(3 Length[#] + 1)/2]] &, {2, 3, 4}, len]];
%t A356378 Grid[Map[Flatten, Transpose[{#, Range[3 Range[Length[#]] - 1,
%t A356378 4 (Length[#] - 2) - 1 + Range[Length[#]]]}]] &[rilo]]
%t A356378 (* _Peter J. C. Moses_, Aug 02 2022 *)
%Y A356378 Cf. A007063, A035486.
%K A356378 nonn
%O A356378 1,2
%A A356378 _Clark Kimberling_, Oct 21 2022