|
%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_
|
