login
Numbers k such that k is the substring identical to the most significant digits of its base-5 representation.
4

%I #17 Apr 10 2019 22:29:03

%S 0,1,2,3,4,124343,124401,132114,10032011,20122404,30213311,40304213,

%T 1333204002110,1411043040042,101232041210022,203110224214344,

%U 210011311131122,304342321033141,311243402442011,311300321024140,413122042420324,420023124324311,14233443213321013401

%N Numbers k such that k is the substring identical to the most significant digits of its base-5 representation.

%C Numbers k whose base-5 representation begins with the same digits as k itself.

%H Scott R. Shannon, <a href="/A307256/b307256.txt">Table of n, a(n) for n = 1..500</a>

%e 132114_10 = 13211424_5, which also begins with '132114'.

%t With[{b = 5}, Select[Array[{FromDigits@ #, #} &@ IntegerDigits[#, b] &, b^10, 0], Take[IntegerDigits[First@ #, b], Length@ Last@ #] == Last[#] &][[All, 1]]] (* _Michael De Vlieger_, Apr 01 2019 *)

%Y This is a subsequence of A038105.

%K nonn,base

%O 1,3

%A _Scott R. Shannon_, Apr 01 2019