0,7

Mehmet A. Ates, Table of n, a(n) for n = 0..1500

TwoDVectors = List[];

SeqSize = 20;

For[i = 0, i <= SeqSize, i++,

For[j = 0, j <= i, j++,

AppendTo[TwoDVectors, {i, j}]

]

];

Flatten[TwoDVectors]

a(2n)= A003056(n),

a(2n+1)= A002262(n).

Cf. A331195.

Sequence in context: A153149 A249072 A174007 * A045450 A029222 A162350

Adjacent sequences: A330706 A330707 A330708 * A330710 A330711 A330712

nonn,easy

Mehmet A. Ates, Jun 08 2020

approved