%I #11 Jun 30 2022 14:43:51
%S 0,1,13,6,41,54,24,21,145,166,216,253,96,121,69,86,545,582,664,749,
%T 864,841,949,1014,384,433,477,486,793,278,344,357,2113,2182,2328,2509,
%U 2656,2793,2901,2998,3456,3537,3901,3366,3641,3798,4056,3973,1536,1633,1709,1734,1801,1910,1944,2037,3313,3174,1112,1053
%N Main diagonal of A268725: a(n) = A003188(A006068(n)^2), where A003188 is binary Gray code and A006068 is its inverse.
%H Antti Karttunen, <a href="/A268723/b268723.txt">Table of n, a(n) for n = 0..8191</a>
%F a(n) = A003188(A000290(A006068(n))).
%o (Scheme) (define (A268723 n) (A003188 (A000290 (A006068 n))))
%o (Python)
%o def A268723(n):
%o k, m = n, n>>1
%o while m > 0:
%o k ^= m
%o m >>= 1
%o return (a:=k**2)^ a>>1 # _Chai Wah Wu_, Jun 30 2022
%Y Cf. A000290, A003188, A006068.
%Y Main diagonal of array A268725.
%K nonn
%O 0,3
%A _Antti Karttunen_, Feb 13 2016
|