|
%I #20 Apr 10 2019 22:28:38
%S 0,1,2,3,133302001,132303132012,131312312013231,132000312313232,
%T 123111200333000032,130330012131021302,131011302011130113,
%U 122132323102303012312,130030202001033022111,113333330333220330011201,121222313212022110233320,113121021032311213311133001,120320123012330002303131013
%N Numbers k such that k is the substring identical to the most significant digits of its base-4 representation.
%C Numbers k whose base-4 representation begins with the same digits as k itself.
%H Scott R. Shannon, <a href="/A307255/b307255.txt">Table of n, a(n) for n = 1..500</a>
%e 133302001_10 = 13330200123301_4, which also begins with '133302001'.
%t With[{b = 4}, Select[Array[{FromDigits@ #, #} &@ IntegerDigits[#, b] &, b^12, 0], Take[IntegerDigits[First@ #, b], Length@ Last@ #] == Last[#] &][[All, 1]]] (* _Michael De Vlieger_, Apr 01 2019 *)
%Y This is a subsequence of A038104.
%K nonn,base
%O 1,3
%A _Scott R. Shannon_, Apr 01 2019
|
