|
|
A033079
|
|
Numbers in which all pairs of consecutive base-8 digits differ by 3.
|
|
0
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 12, 21, 24, 30, 33, 39, 42, 51, 60, 97, 103, 170, 195, 243, 268, 316, 341, 408, 414, 481, 487, 780, 828, 1365, 1560, 1566, 1944, 1950, 2145, 2151, 2529, 2535, 2730, 3267, 3315, 3852, 3900, 6241, 6247, 6625, 6631, 10922, 12483, 12531, 15555
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MATHEMATICA
|
Join[{0, 1, 2, 3, 4, 5, 6, 7}, Select[Range[20000], Union[Abs[Differences[ IntegerDigits[ #, 8]]]]=={3}&]] (* Harvey P. Dale, Apr 12 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|