|
|
A044418
|
|
Numbers n such that string 8,6 occurs in the base 10 representation of n but not of n-1.
|
|
0
|
|
|
86, 186, 286, 386, 486, 586, 686, 786, 860, 886, 986, 1086, 1186, 1286, 1386, 1486, 1586, 1686, 1786, 1860, 1886, 1986, 2086, 2186, 2286, 2386, 2486, 2586, 2686, 2786, 2860, 2886, 2986, 3086, 3186, 3286, 3386, 3486, 3586
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[4000], MemberQ[Partition[IntegerDigits[#], 2, 1], {8, 6}]&& !MemberQ[Partition[IntegerDigits[#-1], 2, 1], {8, 6}]&] (* Harvey P. Dale, Oct 02 2011 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {8, 6}]>0, 1, 0], {n, 4000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 04 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|