login
If A015910(m) is a power of 2, append log_2(A015910(m)) to the sequence.
0

%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