%I #9 Nov 21 2013 13:07:08
%S 21,57,93,131,165,201,237,273,309,347,381,417,453,489,525,563,597,633,
%T 669,705,741,791,813,849,885,921,957,995,1029,1065,1101,1137,1173,
%U 1211,1245,1281,1317,1353,1389,1427,1461,1497,1533,1569,1605,1643,1677,1713
%N Numbers n such that string 3,3 occurs in the base 6 representation of n but not of n+1.
%t f[n_] := Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 6]]], "33", 1]]; Select[Table[n, {n, 10000}], f[#] > 0 && f[# + 1] == 0 &] (* _Vladimir Joseph Stephan Orlovsky_, Jul 20 2011 *)
%Y Cf. A044123.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|