|
| |
| |
|
|
|
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; internal format)
|
|
|
|
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, June 01 2011
|
|
|
CROSSREFS
| Cf. A086069, A086070, A086067.
Sequence in context: A005483 A040099 A173237 * A030595 A094715 A096043
Adjacent sequences: A086065 A086066 A086067 * A086069 A086070 A086071
|
|
|
KEYWORD
| nonn,fini,easy
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jul 08 2003
|
| |
|
|
