A307255 Numbers k such that k is the substring identical to the most significant digits of its base-4 representation.
0, 1, 2, 3, 133302001, 132303132012, 131312312013231, 132000312313232, 123111200333000032, 130330012131021302, 131011302011130113, 122132323102303012312, 130030202001033022111, 113333330333220330011201, 121222313212022110233320, 113121021032311213311133001, 120320123012330002303131013
Offset: 1
Examples
133302001_10 = 13330200123301_4, which also begins with '133302001'.
Links
- Scott R. Shannon, Table of n, a(n) for n = 1..500
Crossrefs
This is a subsequence of A038104.
Programs
-
Mathematica
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 *)
Comments