%I
%S 18,54,90,108,126,162,198,234,270,306,324,342,378,414,450,486,522,540,
%T 558,594,630,648,702,738,756,774,810,846,882,918,954,972,990,1026,
%U 1062,1098,1134,1170,1188,1206,1242,1278,1314,1350
%N Numbers n such that string 3,0 occurs in the base 6 representation of n but not of n1.
%H Harvey P. Dale, <a href="/A044120/b044120.txt">Table of n, a(n) for n = 1..1000</a>
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{3,0}]>0,1,0],{n,1500}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 23 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
