OFFSET
1
COMMENTS
Decimal values of string of bits generated at the n-th step: {1, 6, 105, 27060, 1773437055, 7616854156643735370, 140506159274377790195414803346835746325, ...}. - Michael De Vlieger, Sep 02 2016
EXAMPLE
First step: 1; the two numbers are obviously 1 and 1 which sum to 10; sequence becomes 1,1,0;
Second step: 1,1,0; the two numbers are 110 and 11, which sum to 1001; sequence becomes 1,1,0,1,0,0,1;
Third step: 1,1,0,1,0,0,1; the two numbers are 1101001 and 1001011, which sum to 10110100; sequence becomes 1,1,0,1,0,0,1,1,0,1,1,0,1,0,0; etc.
MAPLE
with(numtheory): P:=proc(q) local a, b, c, d, k, n; a:=[1];
for n from 1 to q do b:=a[1]; for k from 2 to nops(a) do b:=2*b+a[k]; od; c:=a[nops(a)];
for k from nops(a)-1 by -1 to 1 do c:=2*c+a[k]; od; d:=convert(b+c, binary);
for k from 1 to ilog10(d)+1 do a:=[op(a), (trunc(d/10^(ilog10(d)+1-k)) mod 10)] ; od;
od; print(a); end: P(10);
MATHEMATICA
Nest[Join[#, IntegerDigits[FromDigits[#, 2] + FromDigits[Reverse@ #, 2], 2]] &, {1}, 6] (* Michael De Vlieger, Sep 02 2016 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Paolo P. Lava, Sep 02 2016
STATUS
approved