A030401 Write 2n-1 in base 4 and juxtapose.

1, 3, 1, 1, 1, 3, 2, 1, 2, 3, 3, 1, 3, 3, 1, 0, 1, 1, 0, 3, 1, 1, 1, 1, 1, 3, 1, 2, 1, 1, 2, 3, 1, 3, 1, 1, 3, 3, 2, 0, 1, 2, 0, 3, 2, 1, 1, 2, 1, 3, 2, 2, 1, 2, 2, 3, 2, 3, 1, 2, 3, 3, 3, 0, 1, 3, 0, 3, 3, 1, 1, 3, 1, 3, 3, 2, 1, 3, 2, 3, 3, 3, 1, 3, 3, 3, 1, 0, 0, 1

Offset

1,2

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

map(op, [seq(ListTools[Reverse](convert(2*n-1, base, 4)), n=1..100)]); # Robert Israel, Jun 27 2018

Mathematica

Array[IntegerDigits[2 # - 1, 4] &, 33] // Flatten (* Michael De Vlieger, Jun 27 2018 *)

Crossrefs

Sequence in context: A191278 A363085 A359577 * A275888 A308166 A295931

Adjacent sequences: A030398 A030399 A030400 * A030402 A030403 A030404

Keyword

nonn,base

Author

Clark Kimberling

Status

approved