|
%I #9 Apr 13 2015 16:57:48
%S 29,110,191,269,272,353,434,515,596,677,758,839,920,998,1001,1082,
%T 1163,1244,1325,1406,1487,1568,1649,1727,1730,1811,1892,1973,2054,
%U 2135,2216,2297,2429,2456,2459,2540,2621,2702,2783
%N Numbers n such that string 3,2 occurs in the base 9 representation of n but not of n+1.
%H Harvey P. Dale, <a href="/A044661/b044661.txt">Table of n, a(n) for n = 1..1000</a>
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{3,2}]>0,1,0],{n,3000}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10.1 *) (* _Harvey P. Dale_, Apr 13 2015 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
