login
A087744
Binary and decimal representation of n concatenated.
1
11, 102, 113, 1004, 1015, 1106, 1117, 10008, 10019, 101010, 101111, 110012, 110113, 111014, 111115, 1000016, 1000117, 1001018, 1001119, 1010020, 1010121, 1011022, 1011123, 1100024, 1100125, 1101026, 1101127, 1110028, 1110129, 1111030, 1111131, 10000032, 10000133
OFFSET
1,1
COMMENTS
The range of the sequence is generated by the context-sensitive grammar with decimal digits as terminals, {s,x,y,z,c,u,v,L,R} as non-terminals, s as axiom and the following rules (e is the empty word): s->L1xy1R, L->e, R->e, xy->e, 0x->1u, 1x->x0, Lx->L1u, u1->1u, u0->0u, uy->uz, zi->iz for 0<=i<=9, ziR->vjR for j=i+1 and 0<=i<9, z9R->c0R, ic->vj for j=i+1 and 0<=i<9, 9c->c0, iv->vi for 0<=i<=9, uv->xy and uc->xy1.
LINKS
MAPLE
a:= n-> parse(cat(convert(n, binary), n)):
seq(a(n), n=1..35); # Alois P. Heinz, Jul 31 2022
MATHEMATICA
Table[FromDigits[Join[IntegerDigits[n, 2], IntegerDigits[n]]], {n, 30}] (* Harvey P. Dale, Dec 13 2011 *)
PROG
(Python)
def a(n): return int(bin(n)[2:]+str(n))
print([a(n) for n in range(1, 34)]) # Michael S. Branicky, Jul 31 2022
(PARI) a(n) = fromdigits(binary(n))*10^(logint(n, 10)+1) + n; \\ Kevin Ryde, Nov 10 2022
CROSSREFS
Sequence in context: A180280 A100580 A253631 * A054421 A037700 A037609
KEYWORD
nonn,base,easy
AUTHOR
Reinhard Zumkeller, Oct 02 2003
EXTENSIONS
a(30) and beyond from Michael S. Branicky, Jul 31 2022
STATUS
approved