A044373 Numbers n such that string 4,1 occurs in the base 10 representation of n but not of n-1.
41, 141, 241, 341, 410, 441, 541, 641, 741, 841, 941, 1041, 1141, 1241, 1341, 1410, 1441, 1541, 1641, 1741, 1841, 1941, 2041, 2141, 2241, 2341, 2410, 2441, 2541, 2641, 2741, 2841, 2941, 3041, 3141, 3241, 3341, 3410, 3441
Offset: 1
Programs
-
Mathematica
SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{4,1}]>0,1,0],{n,3500}],{0,1}][[;;,2]] (* Harvey P. Dale, Aug 27 2024 *)