A026370 -id:A026370 - cp's OEIS frontend

A026371 a(n) = least k such that s(k) = n, where s = A026370.

1, 2, 3, 5, 6, 8, 9, 11, 12, 13, 14, 16, 17, 19, 20, 21, 22, 24, 25, 27, 28, 29, 30, 32, 33, 35, 36, 38, 39, 41, 42, 43, 44, 46, 47, 49, 50, 51, 52, 54, 55, 57, 58, 60, 61, 63, 64, 65, 66, 68, 69, 71, 72, 73, 74, 76, 77, 79, 80, 82, 83, 85, 86

Offset: 1

Clark Kimberling

nonn

Complement of A026372; also the rank transform (as at A187224) of (A004526 after removal of its first term, leaving 0,1,1,2,2,3,3,4,4,5,5,6,6,...). - Clark Kimberling, Mar 10 2011

Cf. A187422, A026372, A004526.

seqA = Table[Floor[n/2], {n, 1, 180}]  (* A004526 *)
seqB = Table[n, {n, 1, 80}];           (* A000027 *)
jointRank[{seqA_, seqB_}] := {Flatten@Position[#1, {_, 1}],
Flatten@Position[#1, {_, 2}]} &[Sort@Flatten[{{#1, 1} & /@ seqA,
{#1, 2} & /@ seqB}, 1]];
limseqU = FixedPoint[jointRank[{seqA, #1[[1]]}] &, jointRank[{seqA, seqB}]][[1]]                                   (* A026371 *)
Complement[Range[Length[seqA]], limseqU]  (* A026372 *)
(* by Peter J. C. Moses, Mar 10 2011 *)

A026372 a(n) = greatest k such that s(k) = n, where s = A026370.

Original entry on oeis.org

4, 7, 10, 15, 18, 23, 26, 31, 34, 37, 40, 45, 48, 53, 56, 59, 62, 67, 70, 75, 78, 81, 84, 89, 92, 97, 100, 105, 108, 113, 116, 119, 122, 127, 130, 135, 138, 141, 144, 149, 152, 157, 160, 165, 168, 173, 176, 179, 182, 187, 190, 195, 198

Offset: 1

Clark Kimberling

nonn

Complement of A026371. See A187422 and A026371. [Clark Kimberling, Mar 10 2011]

Cf. A026370, A026371, A187422.

Mathematica
```
(See A026371.)
```

A026373 a(n) = sum of the numbers between the two n's in A026370.

Original entry on oeis.org

5, 13, 25, 61, 85, 144, 180, 262, 310, 362, 418, 539, 607, 751, 831, 915, 1003, 1186, 1286, 1492, 1604, 1720, 1840, 2085, 2217, 2485, 2629, 2920, 3076, 3390, 3558, 3730, 3906, 4259, 4447, 4823, 5023, 5227, 5435, 5850, 6070

Offset: 1

Clark Kimberling

nonn

Cf. A026370.

cp's OEIS Frontend

A026371 a(n) = least k such that s(k) = n, where s = A026370.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A026372 a(n) = greatest k such that s(k) = n, where s = A026370.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A026373 a(n) = sum of the numbers between the two n's in A026370.

Views

Author

Keywords

Crossrefs