|
|
|
|
1, 2, 3, 4, 5, 6, 7, 64, 66, 67, 68, 69, 70, 71, 128, 129, 131, 132, 133, 134, 135, 192, 193, 194, 196, 197, 198, 199, 256, 257, 258, 259, 261, 262, 263, 320, 321, 322, 323, 324, 326, 327, 384, 385, 386, 387, 388, 389, 391, 448, 449
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Also: Numbers which, written in base 64, have only digits 0 through 7, and no two adjacent digits equal. - M. F. Hasler, Feb 03 2014
|
|
LINKS
|
|
|
MAPLE
|
f:= proc(n) local i;
seq(64*n+i, i= subs(n mod 64 = NULL, [$0..7]))
end proc:
A:= $1..7: R:= [A]:
for d from 2 to 3 do
R:= map(f, R);
A:= A, op(R);
od:
|
|
PROG
|
(PARI) is_A043312(n)=(n=[n])&&!until(!n[1], ((n=divrem(n[1], 64))[2]<8 && n[1]%8!=n[2])||return) \\ M. F. Hasler, Feb 03 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|