OFFSET
1,2
COMMENTS
Conjecture: every positive integer occurs exactly once.
MATHEMATICA
len = 8; roli = Join[{{1}}, NestList[Join[#[[Riffle[Range[Length[#], (Length[#] + 3)/2, -1], Range[(Length[#] - 1)/2, 1, -1]]]],
Range[#, # + 2] &[(3 Length[#] + 1)/2]] &, {2, 3, 4}, 200]];
s = Map[{#, Take[Flatten[Map[Take[#, {(Length[#] + 1)/2}] &, #]], 150] &[
ToExpression[#]]} &, {"roli"}];
Last[First[s]] (* A356377 *)
(* Peter J. C. Moses, Jul 26 2022 *)
(* The next program generates the ROLI array. *)
len = 8; roli = Join[{{1}}, NestList[Join[#[[Riffle[Range[Length[#], (Length[#] + 3)/2, -1], Range[(Length[#] - 1)/2, 1, -1]]]],
Range[#, # + 2] &[(3 Length[#] + 1)/2]] &, {2, 3, 4}, len]];
Grid[Map[Flatten, Transpose[{#, Range[3 Range[Length[#]] - 1,
4 (Length[#] - 2) - 1 + Range[Length[#]]]}]] &[roli]]
(* Peter J. C. Moses, Aug 02 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Oct 21 2022
STATUS
approved