%I #8 Nov 21 2013 13:07:08
%S 13,77,111,141,205,269,333,397,461,525,589,623,653,717,781,895,909,
%T 973,1037,1101,1135,1165,1229,1293,1357,1421,1485,1549,1613,1647,1677,
%U 1741,1805,1869,1933,1997,2061,2125,2159,2189,2253,2317,2381,2445,2509,2573
%N Numbers n such that string 1,5 occurs in the base 8 representation of n but not of n+1.
%t f[n_] := Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 8]]], "15", 1]]; a = Select[Table[n, {n, 10000}], f[#] > 0 && f[# + 1] == 0 &] (* _Vladimir Joseph Stephan Orlovsky_, Jul 16 2011 *)
%Y Cf. A044200.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|