|
|
|
|
0, 1, 10, 2, 20, 12, 102, 3, 30, 13, 103, 23, 203, 123, 1023, 4, 40, 14, 104, 24, 204, 124, 1024, 34, 304, 134, 1034, 234, 2034, 1234, 10234, 5, 50, 15, 105, 25, 205, 125, 1025, 35, 305, 135, 1035, 235, 2035, 1235, 10235, 45, 405, 145, 1045, 245, 2045
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Sequence is finite with last term a(2^10-1)=a(1023)=1023456789; A086067(1023456789)=1111111111.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|