A044669 - OEIS

A044669

Numbers n such that string 4,1 occurs in the base 9 representation of n but not of n+1.

%I #7 Feb 28 2016 17:22:56

%S 37,118,199,280,341,361,442,523,604,685,766,847,928,1009,1070,1090,

%T 1171,1252,1333,1414,1495,1576,1657,1738,1799,1819,1900,1981,2062,

%U 2143,2224,2305,2386,2467,2528,2548,2629,2710,2791

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

%H Harvey P. Dale, <a href="/A044669/b044669.txt">Table of n, a(n) for n = 1..1000</a>

%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{4,1}]>0,1,0],{n,3000}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 28 2016 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_