|
| |
|
|
A038102
|
|
Numbers n such that n is a substring of its base 2 representation.
|
|
8
|
|
|
|
0, 1, 10, 11, 100, 101, 110, 111, 1000, 1001, 1100, 1101, 10000, 10001, 10011, 10100, 10101, 10111, 11000, 11001, 11100, 11101, 100000, 100001, 101000, 101010, 101100, 101101, 101111, 110000, 110001, 110101, 111100, 111101, 1000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
COMMENTS
|
101000 (in base 10) = 1100010{101000}1000 (in base 2).
|
|
|
LINKS
|
Table of n, a(n) for n=1..35.
|
|
|
MATHEMATICA
|
Select[FromDigits /@ IntegerDigits[Range[2^15]-1, 2], StringPosition[StringJoin @@ (ToString /@ IntegerDigits[#, 2]), ToString@#] != {} &] (* terms < 10^15, Giovanni Resta, Apr 30 2013 *)
|
|
|
PROG
|
(PARI) {for(vv=0, 200, bvv=binary(vv);
mm=length(bvv); texp=0; btod=0;
forstep(i=mm, 1, -1, btod=btod+bvv[i]*10^texp; texp++);
bigb=binary(btod); lbb=length(bigb); swsq=1;
for(k=0, lbb - mm , for(j=1, mm, if(bvv[j]!=bigb[j+k], swsq=0));
if(swsq==1, print(btod); break, swsq=1)))}
\\\ Douglas Latimer, Apr 29 2013
|
|
|
CROSSREFS
|
Cf. A038103-A038106.
Sequence in context: A136809 A136813 A225237 * A181891 A115846 A066334
Adjacent sequences: A038099 A038100 A038101 * A038103 A038104 A038105
|
|
|
KEYWORD
|
nonn,base,easy
|
|
|
AUTHOR
|
Patrick De Geest, Feb 15 1999.
|
|
|
STATUS
|
approved
|
| |
|
|
