A356379 Main diagonal of the LORI variant of the array A035486; this is one of eight such sequences discussed in A007063.

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, 25, 65, 20, 67, 78, 43, 64, 49, 66, 76, 61, 85, 101, 60, 100, 32, 62, 111, 52, 68, 124, 80, 93, 86, 102, 92, 131, 115, 51, 110, 58, 77, 73, 72, 15, 134, 171, 29, 151

Offset

1,2

Comments

Conjecture: every positive integer except 2 occurs exactly once.

Links

Table of n, a(n) for n=1..64.

Mathematica

lori = Join[{{1}}, NestList[Join[#[[Riffle[Range[1, (Length[#] - 1)/2],
      Range[(Length[#] + 3)/2, Length[#]]]]],
      Range[#, # + 2] &[(3 Length[#] + 1)/2]] &, {2, 3, 4}, 200]];
s = Map[{#, Take[Flatten[Map[Take[#, {(Length[#] + 1)/2}] &, #]], 150] &[
      ToExpression[#]]} &, {"lori"}];
Last[First[s]]   (* A356379 *)
(* Peter J. C. Moses, Jul 26 2022 *)
(* The next program generates the LORI array. *)
len = 8; lori = Join[{{1}}, NestList[Join[#[[Riffle[Range[1, (Length[#] - 1)/2],
     Range[(Length[#] + 3)/2, Length[#]]]]],
     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[#]]]}]] &[lori]]
(* Peter J. C. Moses, Aug 02 2022 *)

Crossrefs

Cf. A007063, A035486.

Sequence in context: A064537 A023899 A356026 * A324712 A279321 A254863

Adjacent sequences: A356376 A356377 A356378 * A356380 A356381 A356382

Keyword

nonn

Author

Clark Kimberling, Oct 21 2022

Status

approved