login
A175490
a(n) = Product_{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, 2, 3, 8, 20, 144, 63, 256, 1152, 1600, 118800, 995328, 8424000, 12192768, 178605, 1048576, 8912896, 21233664, 27572576256, 13107200000, 537600000, 2032335360000, 30928035600000, 760840571584512, 13541327555788800
OFFSET
1,2
COMMENTS
Row products 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:
A175490 := proc(n) mul(A175488(n, m), m=1..n) ; end proc:
seq(A175490(n), n=1..30) ;
# R. J. Mathar, Sep 28 2010
PROG
(PARI) See Links section.
CROSSREFS
Sequence in context: A066051 A056971 A108125 * A118854 A192151 A137652
KEYWORD
base,nonn
AUTHOR
Leroy Quet, May 28 2010
EXTENSIONS
More terms from R. J. Mathar, Sep 28 2010
STATUS
approved