login
A175489
a(n) = Sum_{k=1..n} b(k,n), where b(k,n) is the largest positive integer that, when written in binary, occurs as a substring in both binary k and binary n.
2
1, 3, 5, 8, 11, 16, 17, 21, 26, 28, 39, 46, 55, 58, 51, 54, 63, 65, 85, 87, 82, 104, 118, 128, 144, 147, 163, 176, 193, 181, 141, 137, 154, 156, 192, 162, 212, 231, 252, 247, 275, 202, 267, 307, 306, 333, 336, 345, 373, 381, 410, 412, 419, 423, 475, 497, 532, 539
OFFSET
1,2
COMMENTS
Row sums of A175488. - R. J. Mathar, Sep 28 2010
LINKS
MAPLE
A175488 := proc(n, m) for a from m to 1 by -1 do abin := convert(a, base, 2) ; nbin := convert(n, base, 2) ; mbin := convert(m, base, 2) ; if verify(abin, nbin, 'sublist') and verify(abin, mbin, 'sublist') then return a; end if; end do: end proc:
A175489 := proc(n) add(A175488(n, m), m=1..n) ; end proc:
seq(A175489(n), n=1..50) ;
# R. J. Mathar, Sep 28 2010
PROG
(PARI) See Links section.
CROSSREFS
Sequence in context: A049706 A080415 A340318 * A289244 A248879 A014688
KEYWORD
base,nonn,look
AUTHOR
Leroy Quet, May 28 2010
EXTENSIONS
More terms from R. J. Mathar, Sep 28 2010
STATUS
approved