|
|
A092454
|
|
Numbers that either contain the digit 5 or are divisible by 5.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Union[Join[5 Range[100], Select[Range[500], MemberQ[IntegerDigits[#], 5]&]]] (* Harvey P. Dale, Dec 08 2010 *)
|
|
PROG
|
(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, ", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 25 2004
|
|
STATUS
|
approved
|
|
|
|