|
%I #34 May 17 2023 15:26:41
%S 6,60,61,62,63,64,65,66,67,68,69,600,601,602,603,604,605,606,607,608,
%T 609,610,611,612,613,614,615,616,617,618,619,620,621,622,623,624,625,
%U 626,627,628,629,630,631,632,633,634,635,636,637,638,639,640,641,642
%N Numbers starting with 6.
%C The lower and upper asymptotic densities of this sequence are 1/54 and 10/63, respectively. - _Amiram Eldar_, Feb 27 2021
%H Jeremy Gardiner, <a href="/A217399/b217399.txt">Table of n, a(n) for n = 1..1111</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F a(n) = n + (53*10^floor(log_10(9*n-8))-8)/9. - _Alan Michael Gómez Calderón_, May 17 2023
%p seq(seq(6*10^n+k, k=0..10^n-1),n=0..3); # _Robert Israel_, May 08 2017
%t Select[Range[1000], IntegerDigits[#][[1]] == 6 &] (* _T. D. Noe_, Oct 02 2012 *)
%o (PARI) isok(n) = digits(n)[1] == 6; \\ _Michel Marcus_, May 08 2017
%o (GAP) Flat(List([0..2],n->List([0..10^n-1],k->6*10^n+k))); # _Muniru A Asiru_, Nov 21 2018
%o (Magma) [n: n in [1..1600] | Intseq(n)[#Intseq(n)] eq 6]; // _Vincenzo Librandi_, Nov 24 2018
%Y Cf. A000870, A011536.
%Y Subsequences include: A045712, A077331, A077682, A106416, A106426.
%Y Cf. A131835, A217394, A217395, A217397, A217398, A217400, A217401, A217402.
%K nonn,base,easy
%O 1,1
%A _Jeremy Gardiner_, Oct 02 2012
|
