|
%I #8 Mar 11 2014 23:23:15
%S 0,5,10,15,20,25,30,35,40,45,50,51,52,53,54,55,56,57,58,59,60,65,70,
%T 75,80,85,90,95,100,105,110,115,120,125,130,135,140,145,150,151,152,
%U 153,154,155,156,157,158,159,160,165,170,175,180,185,190,195,200,205,210
%N Numbers that either contain the digit 5 or are divisible by 5.
%t Union[Join[5 Range[100],Select[Range[500],MemberQ[IntegerDigits[#],5]&]]] (* _Harvey P. Dale_, Dec 08 2010 *)
%o (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,",")))
%Y Cf. A092433, A092451-A092457.
%K nonn,base
%O 0,2
%A _N. J. A. Sloane_, Mar 24 2004
%E More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 25 2004
|
