|
%I #8 Nov 21 2013 12:47:03
%S 18,54,90,113,126,162,198,234,270,306,329,342,378,414,450,486,522,545,
%T 558,594,630,683,702,738,761,774,810,846,882,918,954,977,990,1026,
%U 1062,1098,1134,1170,1193,1206,1242,1278,1314,1350
%N Numbers n such that string 3,0 occurs in the base 6 representation of n but not of n+1.
%t Select[Range[1400],MemberQ[Partition[IntegerDigits[#,6],2,1],{3,0}]&&!MemberQ[Partition[IntegerDigits[#+1,6],2,1],{3,0}]&] (* _Harvey P. Dale_, Feb 08 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
