%I #7 Feb 01 2013 17:37:20
%S 25,74,123,172,181,221,270,319,368,417,466,515,524,564,613,662,711,
%T 760,809,858,867,907,956,1005,1054,1103,1152,1201,1210,1273,1299,1348,
%U 1397,1446,1495,1544,1553,1593,1642,1691,1740,1789
%N Numbers n such that string 3,4 occurs in the base 7 representation of n but not of n+1.
%t s34Q[n_]:=Module[{idn7=Partition[IntegerDigits[n,7],2,1]},MemberQ[ idn7,{3,4}]]; Select[Range[2000],s34Q[#]&&!s34Q[#+1]&] (* _Harvey P. Dale_, Feb 01 2013 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|