A044794 Numbers n such that string 8,1 occurs in the base 10 representation of n but not of n+1.

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

Links

Table of n, a(n) for n=1..39.

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

Adjacent sequences: A044791 A044792 A044793 * A044795 A044796 A044797

Keyword

nonn,base

Author

Clark Kimberling

Status

approved