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

Links

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

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

Prog

(Haskell)
a072085 = a072084 . a072084  -- Reinhard Zumkeller, Feb 10 2013

Crossrefs

Cf. A072086.

Sequence in context: A369917 A319608 A230850 * A054868 A352517 A347981

Adjacent sequences: A072082 A072083 A072084 * A072086 A072087 A072088

Keyword

nonn,mult

Author

Reinhard Zumkeller, Jun 14 2002

Status

approved