|
%I #14 Jun 12 2019 02:55:02
%S 1,2,3,4,5,6,7,64,66,67,68,69,70,71,128,129,131,132,133,134,135,192,
%T 193,194,196,197,198,199,256,257,258,259,261,262,263,320,321,322,323,
%U 324,326,327,384,385,386,387,388,389,391,448,449
%N a(n) = A033006(n)/9.
%C 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
%H Robert Israel, <a href="/A043312/b043312.txt">Table of n, a(n) for n = 1..10000</a>
%p f:= proc(n) local i;
%p seq(64*n+i, i= subs(n mod 64 = NULL, [$0..7]))
%p end proc:
%p A:= $1..7: R:= [A]:
%p for d from 2 to 3 do
%p R:= map(f, R);
%p A:= A, op(R);
%p od:
%p A; # _Robert Israel_, Jun 11 2019
%o (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
%Y Cf. A043307 - A043320, A043291, A033001 - A033014, A033016 - A033029.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
