A001746 At least one digit contains a loop (version 1).

0, 6, 8, 9, 10, 16, 18, 19, 20, 26, 28, 29, 30, 36, 38, 39, 40, 46, 48, 49, 50, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 76, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105

Offset: 1

Author

N. J. A. Sloane

Keywords

• base
• nonn
• easy

Comments

A 10-automatic sequence: contains at least one 0, 6, 8, or 9 in decimal. - Charles R Greathouse IV, Feb 11 2017

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000
• Index entries for 10-automatic sequences.

Programs

Mathematica

Select[Range[0, 200], Length[Intersection[{0, 6, 8, 9}, Union[IntegerDigits[#]]]] > 0 &] (* T. D. Noe, Aug 10 2012 *)

PARI

is(n)=n==0 || !!#setintersect(Set(digits(n)),[0,6,8,9]) \\ Charles R Greathouse IV, Feb 11 2017

Formula

a(n) = n + O(n^k) where k = log 6/log 10 = 0.77815.... - Charles R Greathouse IV, Feb 11 2017