A001745 Numbers such that at least one digit contains a loop (version 2). Also called "holey" or "holy" numbers.

0, 4, 6, 8, 9, 10, 14, 16, 18, 19, 20, 24, 26, 28, 29, 30, 34, 36, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 54, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 74, 76, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95

Offset

1,2

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

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

Prog

(PARI) instr(x, n)=#setintersect(Set(digits(x)), [n])>0;
f(n) = for(x=0, n, y=instr(x, 4)+instr(x, 6)+instr(x, 8)+instr(x, 9)+instr(x, 0); if(y>0, print1(x", "))) \\ Cino Hilliard, Feb 23 2005; corrected by Charles R Greathouse IV, Jan 21 2016

Crossrefs

Sequence in context: A341614 A323644 A164702 * A359982 A276628 A050695

Adjacent sequences: A001742 A001743 A001744 * A001746 A001747 A001748

Keyword

base,nonn

Author

N. J. A. Sloane

Status

approved