OFFSET
1,3
COMMENTS
Sequence is finite with last term a(2^10-1)=a(1023)=1023456789; A086067(1023456789)=1111111111.
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..1023 (full sequence)
MAPLE
A086068 := proc(n) local b, k, s: s:={}: if(n=1)then return 0: fi: b:=convert(n, base, 2): for k from 1 to nops(b) do if(b[k] = 1)then s:=s union {k-1}: fi: od: s:=sort(convert(s, list)): if(s[1]=0)then return s[2]*10^(nops(s)-1)+add(s[j]*10^(nops(s)-j), j=3..nops(s)): else return add(s[j]*10^(nops(s)-j), j=1..nops(s)): fi: end: seq(A086068(n), n=1..53); # Nathaniel Johnston, Jun 01 2011
CROSSREFS
KEYWORD
nonn,fini,full,easy
AUTHOR
Reinhard Zumkeller, Jul 08 2003
STATUS
approved