A044008 Numbers k such that 1 and 5 occur juxtaposed in the base-10 representation of k but not of k+1.

15, 51, 115, 159, 215, 251, 315, 351, 415, 451, 519, 551, 615, 651, 715, 751, 815, 851, 915, 951, 1015, 1051, 1115, 1159, 1215, 1251, 1315, 1351, 1415, 1451, 1599, 1615, 1651, 1715, 1751, 1815, 1851, 1915, 1951, 2015, 2051

Offset

1,1

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Mathematica

With[{j = 1, k = 5}, SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {j, k}] > 0 || SequenceCount[IntegerDigits[n], {k, j}] > 0, 1, 0], {n, 2100}], {1, 0}][[All, 1]]] (* Michael De Vlieger, Aug 27 2021 *)

Crossrefs

Sequence in context: A265039 A039405 A043228 * A201054 A009962 A211563

Adjacent sequences: A044005 A044006 A044007 * A044009 A044010 A044011

Keyword

nonn,base

Author

Clark Kimberling

Status

approved