A092454 Numbers that either contain the digit 5 or are divisible by 5.

0, 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 110, 115, 120, 125, 130, 135, 140, 145, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 165, 170, 175, 180, 185, 190, 195, 200, 205, 210

Offset: 0

Author

N. J. A. Sloane, Mar 24 2004

Keywords

• nonn
• base

Crossrefs

Cf. A092433, A092451-A092457.

Programs

Mathematica

Union[Join[5 Range[100],Select[Range[500],MemberQ[IntegerDigits[#],5]&]]] (* Harvey P. Dale, Dec 08 2010 *)

PARI

ll(n)=length(Str(n)) f(n,m)=(n%10^(ll(n)-m) - n%10^(ll(n)-m-1))/10^(ll(n)-m-1) a(n,m)=s=0;for(i=0,ll(n),if(f(n,i)==m,s=s+1,s=s));return(s) for (j=0,300,if(Mod(j,5)==0 || a(j,5)==1,print1(j,",")))

Extensions

More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 25 2004