A072085 a(n) = A072084(A072084(n)).

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, 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, 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

Offset: 1

Author

Reinhard Zumkeller, Jun 14 2002

Keywords

• nonn
• mult

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A072086.

Programs

Haskell

a072085 = a072084 . a072084  -- Reinhard Zumkeller, Feb 10 2013

Mathematica

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 *)