%I #8 Nov 21 2013 12:47:03
%S 29,54,79,104,129,149,154,179,204,229,254,274,279,304,329,354,379,399,
%T 404,429,454,479,504,524,529,554,579,604,629,649,654,679,704,749,754,
%U 774,779,804,829,854,879,899,904,929,954,979
%N Numbers n such that string 0,4 occurs in the base 5 representation of n but not of n+1.
%t Select[Range[1000],MemberQ[Partition[IntegerDigits[#,5],2,1], {0,4}]&&!MemberQ[Partition[IntegerDigits[#+1,5],2,1],{0,4}]&] (* _Harvey P. Dale_, Mar 14 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_