|
%I #7 May 21 2013 16:14:26
%S 47,96,145,194,243,292,329,341,390,439,488,537,586,635,672,684,733,
%T 782,831,880,929,978,1015,1027,1076,1125,1174,1223,1272,1321,1358,
%U 1370,1419,1468,1517,1566,1615,1664,1701,1713,1762,1811
%N Numbers n such that string 6,5 occurs in the base 7 representation of n but not of n-1.
%t Select[Range[2000],MemberQ[Partition[IntegerDigits[#,7],2,1],{6,5}] && !MemberQ[ Partition[IntegerDigits[#-1,7],2,1],{6,5}]&] (* _Harvey P. Dale_, May 21 2013 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
