|
%I #7 Feb 08 2016 20:23:37
%S 7,16,21,25,34,43,48,52,61,63,75,79,88,97,102,106,115,124,129,133,142,
%T 144,156,160,169,178,183,187,189,223,225,237,241,250,259,264,268,277,
%U 286,291,295,304,306,318,322,331,340,345,349
%N Numbers n such that string 2,1 occurs in the base 3 representation of n but not of n-1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,3],{2,1}]>0,1,0],{n,400}],{0,1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 08 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
