|
%I #15 Feb 01 2022 01:26:00
%S 0,6,8,9,10,16,18,19,20,26,28,29,30,36,38,39,40,46,48,49,50,56,58,59,
%T 60,61,62,63,64,65,66,67,68,69,70,76,78,79,80,81,82,83,84,85,86,87,88,
%U 89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105
%N At least one digit contains a loop (version 1).
%C A 10-automatic sequence: contains at least one 0, 6, 8, or 9 in decimal. - _Charles R Greathouse IV_, Feb 11 2017
%H T. D. Noe, <a href="/A001746/b001746.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F a(n) = n + O(n^k) where k = log 6/log 10 = 0.77815.... - _Charles R Greathouse IV_, Feb 11 2017
%t Select[Range[0, 200], Length[Intersection[{0, 6, 8, 9}, Union[IntegerDigits[#]]]] > 0 &] (* _T. D. Noe_, Aug 10 2012 *)
%o (PARI) is(n)=n==0 || !!#setintersect(Set(digits(n)),[0,6,8,9]) \\ _Charles R Greathouse IV_, Feb 11 2017
%K base,nonn,easy
%O 1,2
%A _N. J. A. Sloane_
|
