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 A356377 #6 Nov 09 2022 19:16:29
%S A356377 1,3,5,4,8,6,10,15,2,9,13,26,11,12,33,34,35,29,22,37,44,48,56,39,43,
%T A356377 54,36,16,23,25,76,81,47,30,42,14,72,38,74,71,68,92,77,46,69,94,78,
%U A356377 128,45,110,89,73,135,90,62,115,101,104,85,153,113,158,171,172
%N A356377 Main diagonal of the ROLI variant of the array A035486; this is one of eight such sequences discussed in A007063.
%C A356377 Conjecture: every positive integer occurs exactly once.
%t A356377 len = 8; roli = Join[{{1}}, NestList[Join[#[[Riffle[Range[Length[#], (Length[#] + 3)/2, -1], Range[(Length[#] - 1)/2, 1, -1]]]],
%t A356377 Range[#, # + 2] &[(3 Length[#] + 1)/2]] &, {2, 3, 4}, 200]];
%t A356377 s = Map[{#, Take[Flatten[Map[Take[#, {(Length[#] + 1)/2}] &, #]], 150] &[
%t A356377 ToExpression[#]]} &, {"roli"}];
%t A356377 Last[First[s]] (* A356377 *)
%t A356377 (* _Peter J. C. Moses_, Jul 26 2022 *)
%t A356377 (* The next program generates the ROLI array. *)
%t A356377 len = 8; roli = Join[{{1}}, NestList[Join[#[[Riffle[Range[Length[#], (Length[#] + 3)/2, -1], Range[(Length[#] - 1)/2, 1, -1]]]],
%t A356377 Range[#, # + 2] &[(3 Length[#] + 1)/2]] &, {2, 3, 4}, len]];
%t A356377 Grid[Map[Flatten, Transpose[{#, Range[3 Range[Length[#]] - 1,
%t A356377 4 (Length[#] - 2) - 1 + Range[Length[#]]]}]] &[roli]]
%t A356377 (* _Peter J. C. Moses_, Aug 02 2022 *)
%Y A356377 Cf. A007063, A035486.
%K A356377 nonn
%O A356377 1,2
%A A356377 _Clark Kimberling_, Oct 21 2022