|
%I #7 Feb 01 2015 16:10:07
%S 68,149,230,311,392,473,554,612,635,716,797,878,959,1040,1121,1202,
%T 1283,1341,1364,1445,1526,1607,1688,1769,1850,1931,2012,2070,2093,
%U 2174,2255,2336,2417,2498,2579,2660,2741,2799,2822
%N Numbers n such that string 7,5 occurs in the base 9 representation of n but not of n-1.
%t Flatten[Position[Partition[Table[If[MemberQ[Partition[ IntegerDigits[ n,9],2,1],{7,5}],1,0],{n,3000}],2,1],{0,1}]]+1 (* _Harvey P. Dale_, Feb 01 2015 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
