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

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

Offset: 1

Author

Juri-Stepan Gerasimov, Jan 14 2011

Keywords

• nonn

Crossrefs

Cf. A000079, A015910.

Programs

Mathematica

f[n_] := Log2@ PowerMod[2, n, n]; Select[f@ Range@ 100, IntegerQ]

Formula

A015910(m)=2^(a(n)).