This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A367295 #8 Nov 12 2023 21:55:54 %S A367295 6,16,26,36,79,89,99,109,119,129,139,182,192,202,212,222,232,275,285, %T A367295 295,305,315,325,335,368,378,388,398,408,418,428,471,481,491,501,511, %U A367295 521,564,574,584,594,604,614,624,667,677,687,697,707,717,760,770,780,790 %N A367295 Numbers k such that 6 is the first digit of 2^k. %C A367295 The asymptotic density of this sequence is log_10(7/6) = 0.066946... %p A367295 x := 1: %p A367295 L := []: %p A367295 for n from 0 to 10^3 do %p A367295 if 6 <= x and x < 7 then %p A367295 L := [op(L), n] %p A367295 fi; %p A367295 x := 2*x; %p A367295 if x > 10 then %p A367295 x := (1/10)*x fi; %p A367295 od: %p A367295 L; %t A367295 Select[Range[800], IntegerDigits[2^#][[1]] == 6 &] (* _Amiram Eldar_, Nov 12 2023 *) %Y A367295 Cf. A000079, A067497, A067469, A172404, A367294, A363060, A330243, A367296, A097415. %K A367295 nonn,base %O A367295 1,1 %A A367295 _Martin Renner_, Nov 12 2023