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
Robert Israel, Table of n, a(n) for n = 1..10000
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
AUTHOR
STATUS
approved