A329355 -id:A329355 - cp's OEIS frontend

A329356 The binary expansion of a(n) is the first n terms of 2 - A000002.

0, 1, 2, 4, 9, 19, 38, 77, 154, 308, 617, 1234, 2468, 4937, 9875, 19750, 39501, 79003, 158006, 316012, 632025, 1264050, 2528101, 5056203, 10112406, 20224813, 40449626, 80899252, 161798505, 323597011, 647194022, 1294388045, 2588776091, 5177552182, 10355104365

Offset: 0

Gus Wiseman, Nov 12 2019

			a(7) = 77 has binary expansion q = {1, 0, 0, 1, 1, 0, 1}, and 2 - q is {1, 2, 2, 1, 1, 2, 1}, which is the first 7 terms of A000002.

Cf. A118270, A329361.
Replacing "2 - A000002" with "A000002 - 1" gives A329355.
Initial subsequences of A000002 are A329360.
Cf. A121016, A211100, A275692, A296658, A329315, A329316, A329317, A329362.

kolagrow[q_]:=If[Length[q]<2,Take[{1,2},Length[q]+1],Append[q,Switch[{q[[Length[Split[q]]]],q[[-2]],Last[q]},{1,1,1},0,{1,1,2},1,{1,2,1},2,{1,2,2},0,{2,1,1},2,{2,1,2},2,{2,2,1},1,{2,2,2},1]]]
kol[n_Integer]:=If[n==0,{},Nest[kolagrow,{1},n-1]];
Table[FromDigits[2-kol[n],2],{n,0,30}]

a(n) = floor((1-c/2)*2^n), where c = A118270 is the Kolakoski constant. - Lorenzo Sauras Altuzarra, Jan 01 2023

A329360 The decimal expansion of a(n) is the first n terms of A000002.

Original entry on oeis.org

0, 1, 12, 122, 1221, 12211, 122112, 1221121, 12211212, 122112122, 1221121221, 12211212212, 122112122122, 1221121221221, 12211212212211, 122112122122112, 1221121221221121, 12211212212211211, 122112122122112112, 1221121221221121122, 12211212212211211221

Offset: 0

Gus Wiseman, Nov 12 2019

Cf. A000002, A054353, A088568, A288605, A296658, A329315, A329316, A329355, A329356, A329361, A329362.

kolagrow[q_]:=If[Length[q]<2,Take[{1,2},Length[q]+1],Append[q,Switch[{q[[Length[Split[q]]]],q[[-2]],Last[q]},{1,1,1},0,{1,1,2},1,{1,2,1},2,{1,2,2},0,{2,1,1},2,{2,1,2},2,{2,2,1},1,{2,2,2},1]]]
kol[n_Integer]:=If[n==0,{},Nest[kolagrow,{1},n-1]];
Table[FromDigits[kol[n]],{n,0,30}]

A329361 a(n) = Sum_{i = 1..n} 2^(n - i) * A000002(i).

Original entry on oeis.org

0, 1, 4, 10, 21, 43, 88, 177, 356, 714, 1429, 2860, 5722, 11445, 22891, 45784, 91569, 183139, 366280, 732562, 1465125, 2930252, 5860505, 11721011, 23442024, 46884049, 93768100, 187536202, 375072405, 750144811, 1500289624, 3000579249, 6001158499, 12002317000

Offset: 0

Gus Wiseman, Nov 12 2019

nonn

			The first 5 terms of A000002 are {1, 2, 2, 1, 1}, so a(5) = 2^4 * 1 + 2^3 * 2 + 2^2 * 2 + 2^1 * 1 + 2^0 * 1 = 43.

Cf. A000002, A054353, A088568, A288605, A296658, A329315, A329316, A329355, A329356, A329360, A329362.

kolagrow[q_]:=If[Length[q]<2,Take[{1,2},Length[q]+1],Append[q,Switch[{q[[Length[Split[q]]]],q[[-2]],Last[q]},{1,1,1},0,{1,1,2},1,{1,2,1},2,{1,2,2},0,{2,1,1},2,{2,1,2},2,{2,2,1},1,{2,2,2},1]]]
kol[n_Integer]:=If[n==0,{},Nest[kolagrow,{1},n-1]];
Table[FromDigits[kol[n],2],{n,0,30}]

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

cp's OEIS Frontend

A329356 The binary expansion of a(n) is the first n terms of 2 - A000002.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A329360 The decimal expansion of a(n) is the first n terms of A000002.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

A329361 a(n) = Sum_{i = 1..n} 2^(n - i) * A000002(i).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula