|
%I #11 Aug 22 2021 17:56:51
%S 9,19,45,54,81,91,114,127,153,163,189,199,225,235,261,270,297,307,324,
%T 369,379,405,415,441,451,477,486,513,523,546,559,585,595,621,631,657,
%U 667,684,729,739,762,775,801,811,837,847,873
%N Numbers k such that 1 and 3 occur juxtaposed in the base-6 representation of k but not of k-1.
%t Select[Range[900],MemberQ[Sort/@Partition[IntegerDigits[#,6],2,1],{1,3}] && !MemberQ[Sort/@Partition[IntegerDigits[#-1,6],2,1],{1,3}]&] (* _Harvey P. Dale_, Sep 20 2011 *)
%Y Cf. A007092.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
