login
Numbers n such that string 7,0 occurs in the base 8 representation of n but not of n-1.
0

%I #7 Sep 28 2015 15:00:50

%S 56,120,184,248,312,376,440,448,504,568,632,696,760,824,888,952,960,

%T 1016,1080,1144,1208,1272,1336,1400,1464,1472,1528,1592,1656,1720,

%U 1784,1848,1912,1976,1984,2040,2104,2168,2232,2296,2360

%N Numbers n such that string 7,0 occurs in the base 8 representation of n but not of n-1.

%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{7,0}]>0,1,0],{n,2500}],{0,1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Sep 28 2015 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_