login
A043312
a(n) = A033006(n)/9.
2
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
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:
A; # Robert Israel, Jun 11 2019
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
STATUS
approved