|
%I #9 Oct 07 2017 21:55:48
%S 1,1,1,1,13,1,1,1,38,1,3,26,31,1,1,1,103,73,1,42,14,7,91,3,58,14,1,
%T 170,303,1,1,1,66,1,385,91,93,301,65,563,1093,1,11,355,38,118,83,1,
%U 1254,763,1,1043,39,1,249,141,238,19,71,43,133,11,781,1,649,1,554,1081,614,1,1633,5,317,1398,1,269,626,10,527,1285,1191,1
%N a(n) = A007913(A292270(n)).
%H Antti Karttunen, <a href="/A293218/b293218.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A007913(A292270(n)).
%o (PARI)
%o A000265(n) = (n >> valuation(n, 2));
%o A006519(n) = 2^valuation(n, 2);
%o A292270(n) = { my(x = n+n+1, z = ((1+x)/A006519(1+x)), m = A000265(1+x)); while(m!=1, z += ((x+m)/A006519(x+m)); m = A000265(x+m)); z; };
%o A293218(n) = core(A292270(n));
%o (Scheme) (define (A293218 n) (A007913 (A292270 n)))
%Y Cf. A002326, A007913, A292270, A292947, A293219.
%Y Cf. A292938 (gives the positions of ones).
%K nonn
%O 0,5
%A _Antti Karttunen_, Oct 06 2017
|
