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

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A000079, A015910.

Sequence in context: A280831 A166948 A325532 * A193865 A026171 A026176

Adjacent sequences: A180072 A180073 A180074 * A180076 A180077 A180078

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jan 14 2011

Status

approved