login
A030401
Write 2n-1 in base 4 and juxtapose.
12
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
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
KEYWORD
nonn,base
STATUS
approved