OFFSET
1,2
COMMENTS
Here * stands for ordinary multiplication and X means carryless (GF(2)[X]) multiplication (A048720).
LINKS
MAPLE
g:= proc(n) local L, i;
L:= op(convert(n, base, 2));
L:= [0$6, L] + [0$3, L, 0$3] + [L, 0$6] mod 2;
add(L[i]*2^(i-1), i=1..nops(L));
end proc:
select(t -> 57*t = g(t), [$0..1000]); # Robert Israel, Jan 31 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 07 2006
EXTENSIONS
Offset corrected by Robert Israel, Jan 31 2021
STATUS
approved