A286294 Leading column of right triangle in A274650.

0, 1, 3, 2, 5, 4, 6, 8, 7, 11, 9, 10, 12, 13, 15, 14, 16, 18, 17, 19, 20, 22, 21, 23, 25, 24, 27, 26, 28, 29, 31, 30, 32, 33, 35, 34, 36, 38, 37, 40, 39, 41, 44, 42, 43, 45, 46, 47, 49, 48, 50, 51, 53, 52, 54, 55, 57, 56, 58, 60, 59, 62, 61, 64, 65, 63, 66, 68, 67, 70, 71, 69, 72, 73, 75, 74, 76, 77, 78

Offset: 0

Author

N. J. A. Sloane, May 30 2017

Keywords

• nonn

Comments

Theorem: This is a permutation of the positive integers. For proof, see link in A274650. - N. J. A. Sloane, Jun 07 2017

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A274650, A274651, A286295, A288384, A288424.

Programs

Mathematica

(* function a274651[] is defined in A274651 for n>=1 *)
a286294[n_] := Map[First, a274651[n+1]-1]
a286294[78] (* data *) (* Hartmut F. W. Hoft, Jun 13 2017 *)

Formula

a(n) = A274650(n,0) = A274651(n+1,1) - 1. - Hartmut F. W. Hoft, Jun 13 2017