

A261751


Numbers n with property that binary expansion of n^3 begins with the binary expansion of n.


0



0, 1, 2, 3, 4, 6, 8, 16, 23, 32, 64, 91, 128, 256, 512, 1024, 2048, 4096, 5793, 8192, 16384, 32768, 46341, 65536, 92682, 131072, 185364, 262144, 370728, 524288
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


COMMENTS

2^k is always a term in this sequence.


LINKS

Table of n, a(n) for n=1..30.


EXAMPLE

23 is a term of this sequence because its cube written in base 2 (10111110000111) starts with its representation in base 2 (10111).


MATHEMATICA

SetBeginSet[set1_, set2_] :=
Do[For[i = 1, i <= Length[set1], i++, If[! set1[[i]] == set2[[i]], Return[False]]]; Return[True], {1}];
For[k = 0; set = {}, k <= 100000, k++, If[SetBeginSet[IntegerDigits[k, 2], IntegerDigits[k^3, 2]], Print[k]]]


CROSSREFS

Base 2 version of A052210.
Sequence in context: A000031 A298072 A111023 * A294679 A008324 A274456
Adjacent sequences: A261748 A261749 A261750 * A261752 A261753 A261754


KEYWORD

nonn,base,easy


AUTHOR

Dhilan Lahoti, Aug 30 2015


STATUS

approved



