%I #7 May 11 2019 18:33:29
%S 1,1,1,2,1,3,1,4,3,5,1,6,1,7,5,8,1,9,1,10,3,11,1,12,1,13,9,14,1,15,1,
%T 16,11,17,5,18,1,19,13,20,1,21,1,22,15,23,1,24,7,25,17,26,1,27,1,28,
%U 19,29,1,30,1,31,21,32,13,33,1,34,1,35,1,36,1,37,25,38,1,39,1,40,1,41,1,42,17,43,1,44,1,45,1,46,3,47,19
%N a(1) = 1; for n > 1, a(n) = n/d for the least divisor d > 1 of n such that A048720(d,k) = n for some k.
%H Antti Karttunen, <a href="/A325641/b325641.txt">Table of n, a(n) for n = 1..16384</a>
%H Antti Karttunen, <a href="/A325641/a325641.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%H <a href="/index/Ge#GF2X">Index entries for sequences related to polynomials in ring GF(2)[X]</a>
%F a(n) = n / A325643(n).
%o (PARI) A325641(n) = if(1==n,n, my(p = Pol(binary(n))*Mod(1, 2)); fordiv(n,d,if((d>1),my(q = Pol(binary(d))*Mod(1, 2)); if(0==(p%q), return(n/d)))));
%Y Cf. A048720, A325642, A325643.
%Y Cf. A325559 (positions of ones after the initial 1).
%K nonn
%O 1,4
%A _Antti Karttunen_, May 11 2019
|