|
%I #8 Nov 21 2013 12:47:03
%S 55,104,153,202,251,300,349,391,398,447,496,545,594,643,692,734,741,
%T 790,839,888,937,986,1035,1077,1084,1133,1182,1231,1280,1329,1378,
%U 1420,1427,1476,1525,1574,1623,1672,1721,1763,1770,1819
%N Numbers n such that string 0,6 occurs in the base 7 representation of n but not of n+1.
%t Select[Range[2000],MemberQ[Partition[IntegerDigits[#,7],2,1],{0,6}]&& !MemberQ[Partition[IntegerDigits[#+1,7],2,1],{0,6}]&] (* _Harvey P. Dale_, Apr 29 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
