|
%I #14 Feb 09 2018 09:13:39
%S 1,1,1,1,1,1,2,1,1,1,2,1,2,2,1,1,1,1,2,1,2,2,1,1,1,2,1,2,1,1,2,1,2,1,
%T 2,1,2,2,2,1,2,2,1,2,1,1,2,1,4,1,1,2,1,1,2,2,2,1,2,1,2,2,2,1,2,2,2,1,
%U 1,2,1,1,2,2,1,2,4,2,2,1,1,2,1,2,1,1,1,2,1,1,4,1,2,2,2,1
%N a(n) = A072084(A072084(n)).
%H Reinhard Zumkeller, <a href="/A072085/b072085.txt">Table of n, a(n) for n = 1..10000</a>
%t b[n_] := Times @@ Power @@@ (FactorInteger[n] /. {p_Integer, e_} :> {DigitCount[p, 2, 1], e}); a[n_] := b[b[n]]; Array[a, 100] (* _Jean-François Alcover_, Feb 09 2018 *)
%o (Haskell)
%o a072085 = a072084 . a072084 -- _Reinhard Zumkeller_, Feb 10 2013
%Y Cf. A072086.
%K nonn,mult
%O 1,7
%A _Reinhard Zumkeller_, Jun 14 2002
|
