1,1

a(n) = A000120(A091938(n)).

Table of n, a(n) for n=1..72.

Run the second Mathematica line of A091938, then Count[ IntegerDigits[ #, 2], 1] & /@ Table[ f[n], {n, 75}]

Cf. A091935.

Sequence in context: A093841 A281354 A283313 * A239906 A239907 A113637

Adjacent sequences: A091934 A091935 A091936 * A091938 A091939 A091940

nonn

Reinhard Zumkeller, Feb 14 2004

More terms from Robert G. Wilson v, Feb 20 2004

approved