A044573 - OEIS

%I #9 Nov 21 2013 13:07:08

%S 69,133,197,261,325,389,453,517,559,581,645,709,773,837,901,965,1029,

%T 1071,1093,1157,1221,1285,1349,1413,1477,1541,1583,1605,1669,1733,

%U 1797,1861,1925,1989,2053,2095,2117,2181,2245,2309,2373,2437,2501,2565,2607,2629

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

%t f[n_] := Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 8]]], "05", 1]]; a = Select[Table[n, {n, 10000}], f[#] > 0 && f[# + 1] == 0 &] (* _Vladimir Joseph Stephan Orlovsky_, Jul 16 2011 *)

%Y Cf. A044192.

%K nonn,base

%O 1,1

%A _Clark Kimberling_