|
|
A044008
|
|
Numbers k such that 1 and 5 occur juxtaposed in the base-10 representation of k but not of k+1.
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|