|
%I #7 Jan 17 2014 14:14:21
%S 32,81,130,179,224,277,326,375,424,473,522,567,620,669,718,767,816,
%T 865,910,963,1012,1061,1110,1159,1208,1253,1306,1355,1404,1453,1502,
%U 1551,1568,1649,1698,1747,1796,1845,1894,1939,1992
%N Numbers n such that string 4,4 occurs in the base 7 representation of n but not of n-1.
%t Select[Range[2000],MemberQ[Partition[IntegerDigits[#,7],2,1],{4,4}] && !MemberQ[Partition[IntegerDigits[#-1,7],2,1],{4,4}]&] (* _Harvey P. Dale_, Jan 17 2014 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
