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

Author

N. J. A. Sloane

Keywords

• base
• nonn

Links

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

Programs

Mathematica

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

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