|
| |
|
|
A044579
|
|
Numbers n such that string 1,3 occurs in the base 8 representation of n but not of n+1.
|
|
0
|
|
|
|
11, 75, 95, 139, 203, 267, 331, 395, 459, 523, 587, 607, 651, 767, 779, 843, 907, 971, 1035, 1099, 1119, 1163, 1227, 1291, 1355, 1419, 1483, 1547, 1611, 1631, 1675, 1739, 1803, 1867, 1931, 1995, 2059, 2123, 2143, 2187, 2251
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..41.
|
|
|
MATHEMATICA
|
Select[Range[2300], MemberQ[Partition[IntegerDigits[#, 8], 2, 1], {1, 3}] && !MemberQ[Partition[IntegerDigits[#+1, 8], 2, 1], {1, 3}]&] (* Harvey P. Dale, Oct 10 2013 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {1, 3}]>0, 1, 0], {n, 2300}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 05 2019 *)
|
|
|
CROSSREFS
|
Sequence in context: A121784 A213165 A044198 * A231917 A289419 A027226
Adjacent sequences: A044576 A044577 A044578 * A044580 A044581 A044582
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Clark Kimberling
|
|
|
STATUS
|
approved
|
| |
|
|
