OFFSET
1,3
LINKS
Robert Israel, Table of n, a(n) for n = 1..10011 (first 141 rows, flattened)
FORMULA
T(2^k * n + j, n) = n for 0 <= j < 2^k. - Robert Israel, Jan 21 2025
EXAMPLE
Triangle begins:
1;
1, 2;
1, 1, 3;
1, 2, 1, 4;
1, 2, 1, 2, 5;
1, 2, 3, 2, 2, 6;
...
MAPLE
f:= proc(n, m) local s, R, i;
for s from ilog2(m)+1 to 1 by -1 do
R:= {seq(floor(n/2^i) mod 2^s, i=0 .. ilog2(n)+1-s)}
intersect {seq(floor(m/2^i) mod 2^s, i=0 .. ilog2(m)+1-s)};
if R <> {} then return max(R) fi
od
end proc:
for n from 1 to 15 do
seq(f(n, m), m=1..n)
od; # Robert Israel, Jan 20 2025
CROSSREFS
KEYWORD
AUTHOR
Leroy Quet, May 28 2010
EXTENSIONS
Keyword:tabl added and sequences extended by R. J. Mathar, Sep 28 2010
STATUS
approved