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 A356379 #7 Nov 09 2022 19:16:46
%S A356379 1,3,5,7,4,12,11,17,10,22,21,9,23,33,8,27,16,44,26,18,30,55,41,35,14,
%T A356379 25,65,20,67,78,43,64,49,66,76,61,85,101,60,100,32,62,111,52,68,124,
%U A356379 80,93,86,102,92,131,115,51,110,58,77,73,72,15,134,171,29,151
%N A356379 Main diagonal of the LORI variant of the array A035486; this is one of eight such sequences discussed in A007063.
%C A356379 Conjecture: every positive integer except 2 occurs exactly once.
%t A356379 lori = Join[{{1}}, NestList[Join[#[[Riffle[Range[1, (Length[#] - 1)/2],
%t A356379 Range[(Length[#] + 3)/2, Length[#]]]]],
%t A356379 Range[#, # + 2] &[(3 Length[#] + 1)/2]] &, {2, 3, 4}, 200]];
%t A356379 s = Map[{#, Take[Flatten[Map[Take[#, {(Length[#] + 1)/2}] &, #]], 150] &[
%t A356379 ToExpression[#]]} &, {"lori"}];
%t A356379 Last[First[s]] (* A356379 *)
%t A356379 (* _Peter J. C. Moses_, Jul 26 2022 *)
%t A356379 (* The next program generates the LORI array. *)
%t A356379 len = 8; lori = Join[{{1}}, NestList[Join[#[[Riffle[Range[1, (Length[#] - 1)/2],
%t A356379 Range[(Length[#] + 3)/2, Length[#]]]]],
%t A356379 Range[#, # + 2] &[(3 Length[#] + 1)/2]] &, {2, 3, 4}, len]];
%t A356379 Grid[Map[Flatten, Transpose[{#, Range[3 Range[Length[#]] - 1,
%t A356379 4 (Length[#] - 2) - 1 + Range[Length[#]]]}]] &[lori]]
%t A356379 (* _Peter J. C. Moses_, Aug 02 2022 *)
%Y A356379 Cf. A007063, A035486.
%K A356379 nonn
%O A356379 1,2
%A A356379 _Clark Kimberling_, Oct 21 2022