|
%I #10 Sep 03 2020 12:27:15
%S 0,1,30,31,3900,3901,93900,93901,97000,97001,1270000000,1270000001,
%T 496864267596900,496864267596901,596044970707000,596044970707001,
%U 300522773449238130,300522773449238131,1549835974179703900,1549835974179703901,39043445740978906900,39043445740978906901,1156389717140148910000
%N Numbers n such that the base-2 expansion of n ends with the base-5 expansion of n.
%C Terms occur in pairs {10k,10k+1}.
%H Max Alekseyev, <a href="/A175514/b175514.txt">Table of n, a(n) for n = 1..28</a>
%t n=0;nmax=10^8;While[n<=nmax,a=IntegerDigits[n,2];L=Length[a];b=FromDigits[a,5];
%t If[Mod[b,2^L]==n, Print[{b,b+1}]];n=n+2]; (* after _Ray Chandler_ *)
%Y Cf. A169828.
%K base,nonn
%O 1,3
%A _Zak Seidov_, Jun 03 2010
%E Terms a(20)-a(28) from_Max Alekseyev, Sep 22 2016; Sep 03, 2020
|
