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,2

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.

Formula

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A102106 A175821 A074845 * A025070 A123704 A045574

Adjacent sequences: A001743 A001744 A001745 * A001747 A001748 A001749

Keyword

base,nonn,easy

Author

N. J. A. Sloane

Status

approved