A319650 a(n) = A073138(n) - n.

0, 0, 0, 0, 0, 1, 0, 0, 0, 3, 2, 3, 0, 1, 0, 0, 0, 7, 6, 9, 4, 7, 6, 7, 0, 3, 2, 3, 0, 1, 0, 0, 0, 15, 14, 21, 12, 19, 18, 21, 8, 15, 14, 17, 12, 15, 14, 15, 0, 7, 6, 9, 4, 7, 6, 7, 0, 3, 2, 3, 0, 1, 0, 0, 0, 31, 30, 45, 28, 43, 42, 49, 24, 39, 38, 45, 36, 43, 42, 45, 16

Offset

0,10

Links

Seiichi Manyama, Table of n, a(n) for n = 0..8191

Prog

(Ruby)
def A(k, n)
  (0..n).map{|i| i.to_s(k).split('').sort.reverse.join.to_i(k) - i}
end
p A(2, 100)
(PARI) a(n) = fromdigits(vecsort(binary(n), , 4), 2) - n; \\ Michel Marcus, Sep 25 2018

Crossrefs

Cf. A073138, A164884.

Sequence in context: A053370 A016458 A058513 * A285736 A325142 A047160

Adjacent sequences: A319647 A319648 A319649 * A319651 A319652 A319653

Keyword

nonn,base,look

Author

Seiichi Manyama, Sep 25 2018

Status

approved