A044694 - OEIS

%I #7 Feb 23 2018 13:05:06

%S 62,143,224,305,386,467,548,566,629,710,791,872,953,1034,1115,1196,

%T 1277,1295,1358,1439,1520,1601,1682,1763,1844,1925,2006,2024,2087,

%U 2168,2249,2330,2411,2492,2573,2654,2735,2753,2816

%N Numbers n such that string 6,8 occurs in the base 9 representation of n but not of n+1.

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{6,8}]>0,1,0],{n,3000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Feb 23 2018 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_