|
%I #8 Nov 21 2013 12:47:03
%S 12,48,72,84,120,156,192,228,264,288,300,336,372,408,432,480,504,516,
%T 552,588,624,660,696,720,732,768,804,840,876,912,936,948,984,1020,
%U 1056,1092,1128,1152,1164,1200,1236,1272,1308,1344
%N Numbers n such that string 2,0 occurs in the base 6 representation of n but not of n-1.
%t Select[Range[1500],MemberQ[Partition[IntegerDigits[#,6],2,1],{2,0}] && !MemberQ[Partition[IntegerDigits[#-1,6],2,1],{2,0}]&] (* _Harvey P. Dale_, Nov 09 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
