|
%I #9 Aug 27 2019 10:54:30
%S 65,146,227,308,389,470,551,585,632,713,794,875,956,1037,1118,1199,
%T 1280,1314,1361,1442,1523,1604,1685,1766,1847,1928,2009,2043,2090,
%U 2171,2252,2333,2414,2495,2576,2657,2738,2772,2819
%N Numbers n such that string 7,2 occurs in the base 9 representation of n but not of n-1.
%H Harvey P. Dale, <a href="/A044316/b044316.txt">Table of n, a(n) for n = 1..1000</a>
%t s72Q[n_]:=MemberQ[Partition[IntegerDigits[n,9],2,1],{7,2}]; Flatten[ Position[ Partition[Boole[Array[s72Q,3000]],2,1],{0,1}]]+1 (* _Harvey P. Dale_, Jan 13 2015 *)
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{7,2}]>0,1,0],{n,3000}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 27 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
