login
A044794
Numbers n such that string 8,1 occurs in the base 10 representation of n but not of n+1.
0
81, 181, 281, 381, 481, 581, 681, 781, 819, 881, 981, 1081, 1181, 1281, 1381, 1481, 1581, 1681, 1781, 1819, 1881, 1981, 2081, 2181, 2281, 2381, 2481, 2581, 2681, 2781, 2819, 2881, 2981, 3081, 3181, 3281, 3381, 3481, 3581
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {8, 1}]>0, 1, 0], {n, 4000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 14 2020 *)
CROSSREFS
Sequence in context: A184003 A183995 A044413 * A350198 A236884 A236728
KEYWORD
nonn,base
STATUS
approved