%I #7 Sep 18 2017 09:23:55
%S 1,2,2,4,5,4,4,8,9,10,11,8,8,8,8,16,17,18,18,20,21,22,22,16,17,16,16,
%T 16,17,16,17,32,32,34,34,36,36,36,37,40,41,42,42,44,45,44,44,32,33,34,
%U 34,32,32,32,33,32,33,34,35,32,33,34,34,64,64,64,64,68,69,68,69,72,73,72,72,72,72,74,74,80,81,82,82,84,85,84,84,88,89,90,91
%N a(n) = A292245(A048673(n)).
%H Antti Karttunen, <a href="/A292248/b292248.txt">Table of n, a(n) for n = 1..8192</a>
%F a(n) = A292245(A048673(n)).
%F a(n) + A292247(n) = n.
%t f[n_] := Times @@ Power[If[# == 1, 1, NextPrime[#, -1]] & /@ First@ #, Last@ #] &@ Transpose@ FactorInteger[2 n - 1]; g[n_] := (Times @@ Power[If[# == 1, 1, NextPrime@ #] & /@ First@ #, Last@ #] + 1)/2 &@ Transpose@ FactorInteger@ n; Map[FromDigits[#, 2] &[IntegerDigits[#, 3] /. 2 -> 0] &, Map[a, Array[g, 91]]] (* _Michael De Vlieger_, Sep 16 2017 *)
%Y Cf. A048673, A292244, A292247.
%K nonn
%O 1,2
%A _Antti Karttunen_, Sep 16 2017