|
Search: id:A071843
|
|
|
| A071843 |
|
Gives an LCD representation of n. |
|
+0
1
|
|
| 119, 17, 107, 59, 29, 62, 126, 19, 127, 63, 15249, 2193, 13713, 7569, 3729, 7953, 16145, 2449, 16273, 8081, 15339, 2283, 13803, 7659, 3819, 8043, 16235, 2539, 16363, 8171, 15291, 2235, 13755, 7611, 3771, 7995, 16187, 2491, 16315, 8123, 15261, 2205
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
This is based on the following way of writing "8":
|--2--|
4.....1
|--8--|
64...16
|-32--|
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.
|
|
PROGRAM
|
(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
|
|
CROSSREFS
|
Cf. A010371.
Sequence in context: A143776 A013476 A013683 this_sequence A049048 A124074 A103154
Adjacent sequences: A071840 A071841 A071842 this_sequence A071844 A071845 A071846
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
anon, Jun 08 2002
|
|
EXTENSIONS
|
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 21 2003
|
|
|
Search completed in 0.002 seconds
|
