|
%I #8 Nov 21 2013 12:47:04
%S 17,117,179,217,317,417,517,617,717,817,917,1017,1117,1179,1217,1317,
%T 1417,1517,1617,1799,1817,1917,2017,2117,2179,2217,2317,2417,2517,
%U 2617,2717,2817,2917,3017,3117,3179,3217,3317,3417
%N Numbers n such that string 1,7 occurs in the base 10 representation of n but not of n+1.
%t Select[Range[3500],MemberQ[Partition[IntegerDigits[#],2,1],{1,7}] && !MemberQ[Partition[IntegerDigits[#+1],2,1],{1,7}]&] (* _Harvey P. Dale_, Nov 11 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
