%I #7 Nov 13 2013 14:26:16
%S 46,95,144,193,242,291,322,340,389,438,487,536,585,634,665,683,732,
%T 781,830,879,928,977,1008,1026,1075,1124,1173,1222,1271,1320,1351,
%U 1369,1418,1467,1516,1565,1614,1663,1694,1712,1761,1810
%N Numbers n such that string 6,4 occurs in the base 7 representation of n but not of n1.
%t Select[Range[2000],MemberQ[Partition[IntegerDigits[#,7],2,1],{6,4}] && !MemberQ[Partition[IntegerDigits[#1,7],2,1],{6,4}]&] (* _Harvey P. Dale_, Nov 13 2013 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
