|
%I #9 Nov 21 2013 13:07:08
%S 20,56,92,125,128,164,200,236,272,308,341,344,380,416,452,488,524,557,
%T 560,596,632,668,704,755,773,776,812,848,884,920,956,989,992,1028,
%U 1064,1100,1136,1172,1205,1208,1244,1280,1316,1352,1388,1421,1424,1460,1496
%N Numbers n such that string 3,2 occurs in the base 6 representation of n but not of n+1.
%t f[n_] := Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 6]]], "32", 1]]; Select[Table[n, {n, 10000}], f[#] > 0 && f[# + 1] == 0 &] (* _Vladimir Joseph Stephan Orlovsky_, Jul 20 2011 *)
%Y Cf. A044122.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
