A080310 a(0) = 2 and, for n >= 1, rewrite 0->100 in the binary expansion of n and append 10 to the right.

2, 6, 50, 14, 402, 102, 114, 30, 3218, 806, 818, 206, 914, 230, 242, 62, 25746, 6438, 6450, 1614, 6546, 1638, 1650, 414, 7314, 1830, 1842, 462, 1938, 486, 498, 126, 205970, 51494, 51506, 12878, 51602, 12902, 12914, 3230, 52370, 13094, 13106, 3278, 13202, 3302

Offset

0,1

Links

Paolo Xausa, Table of n, a(n) for n = 0..10000

Formula

a(n) = A080303(n)*4 + 2 for n>0.

a(n) = A080303(2*n)/2.

Mathematica

A080310[n_] := FromDigits[StringReplace[IntegerString[2*n, 2], "0" -> "100"], 2]/2;
Array[A080310, 100, 0] (* Paolo Xausa, Sep 10 2025 *)

Crossrefs

Cf. A080298, A080299, A080303.

Sequence in context: A088679 A161766 A074020 * A103990 A079835 A357009

Adjacent sequences: A080307 A080308 A080309 * A080311 A080312 A080313

Keyword

nonn,base,easy

Author

Antti Karttunen, Mar 02 2003

Extensions

Name edited by Paolo Xausa, Sep 10 2025

Status

approved