editing
approved
editing
approved
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {4, 1}]>0, 1, 0], {n, 3500}], {1, 0}][[All, 1]] (* Harvey P. Dale, May 10 2019 *)
approved
editing
Clark Kimberling (ck6(AT)evansville.edu)
String Numbers n such that string 4,1 occurs in the base 10 representation of n but not of n+1.
nonn,base,new
nonn,base,new
Clark Kimberling, (ck6(AT)evansville.edu)
String 4,1 occurs in the base 10 representation of n, but not of n+1.
nonn,base,new
Clark Kimberling, ck6@cedar.(AT)evansville.edu
String 4,1 occurs in the base 10 representation of n, but not of n+1.
41, 141, 241, 341, 419, 441, 541, 641, 741, 841, 941, 1041, 1141, 1241, 1341, 1419, 1441, 1541, 1641, 1741, 1841, 1941, 2041, 2141, 2241, 2341, 2419, 2441, 2541, 2641, 2741, 2841, 2941, 3041, 3141, 3241, 3341, 3419, 3441
1,1
nonn,base
Clark Kimberling, [email protected]
approved