%I #8 Mar 30 2012 18:52:41
%S 1,1,2,1,3,2,1,2,1,2,3,1,1,4,3,2,1,4,2,4,1,2,1,3,2,1,2,3,4,1,1,4,2,1,
%T 4,3,4,1,5,3,2,1,4,1,2,3,5,6,1,4,3,1,6,1,2,4,6,1,4,2,1,6,5,5,3,1
%N If A015910(m) is a power of 2, append log_2(A015910(m)) to the sequence.
%F A015910(m)=2^(a(n)).
%t f[n_] := Log2@ PowerMod[2, n, n]; Select[f@ Range@ 100, IntegerQ]
%Y Cf. A000079, A015910.
%K nonn
%O 1,3
%A _Juri-Stepan Gerasimov_, Jan 14 2011