|
%I #10 Aug 10 2022 09:54:25
%S 119,17,107,59,29,62,126,19,127,63,15249,2193,13713,7569,3729,7953,
%T 16145,2449,16273,8081,15339,2283,13803,7659,3819,8043,16235,2539,
%U 16363,8171,15291,2235,13755,7611,3771,7995,16187,2491,16315,8123,15261,2205
%N Gives an LCD representation of n.
%C This is based on the following way of writing "8":
%C |--2--|
%C 4.....1
%C |--8--|
%C 64...16
%C |-32--|
%C The powers of 2 present in the LCD representation are added. For example: n=1 gives 1 + 16 = 17. According to the position of a digit in n, [1,2,4...] is replaced by [128,256...],[16384,32768...], etc.
%o (scilab) function lcd: nb: final result ndc: number of digits u: interesting digit M(i,j): (j-1)th bit of (i-1) function [nb]=lcd(n); nb=0; M=[1 1 1 0 1 1 1; 1 0 0 0 1 0 0; 1 1 0 1 0 1 1; 1 1 0 1 1 1 0; 1 0 1 1 1 0 0; 0 1 1 1 1 1 0; 0 1 1 1 1 1 1; 1 1 0 0 1 0 0; 1 1 1 1 1 1 1; 1 1 1 1 1 1 0]; if n <> 0 then ndc=int(log10(n))+1,else ndc = 1,end; for cx = ndc:-1:1; u=int(n/(10^(cx-1))); n=n-u*(10^(cx-1)); for j=0:6; nb=nb+M(u+1,j+1)*2^(j+7*(ndc-cx)),end,end; endfunction
%Y Cf. A006942 (bitcount).
%Y Coding and glyph variations: A234691, A234692.
%K nonn,base,easy
%O 0,1
%A Anonymous, Jun 08 2002
%E More terms from Antonio G. Astudillo, Apr 21 2003
|
