|
|
A044688
|
|
Numbers n such that string 6,2 occurs in the base 9 representation of n but not of n+1.
|
|
0
|
|
|
56, 137, 218, 299, 380, 461, 512, 542, 623, 704, 785, 866, 947, 1028, 1109, 1190, 1241, 1271, 1352, 1433, 1514, 1595, 1676, 1757, 1838, 1919, 1970, 2000, 2081, 2162, 2243, 2324, 2405, 2486, 2567, 2648, 2699, 2729, 2810
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[3000], MemberQ[Partition[IntegerDigits[#, 9], 2, 1], {6, 2}] && !MemberQ[Partition[IntegerDigits[#+1, 9], 2, 1], {6, 2}]&] (* Harvey P. Dale, Nov 02 2011 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {6, 2}]>0, 1, 0], {n, 3000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 30 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|