A070034 -id:A070034 - cp's OEIS frontend

A070036 a(n)=A070034(n)-A070035(n).

1, 1, 1, 2, 1, 1, 3, 2, 3, 4, 1, 3, 2, 4, 2, 3, 3, 3, 1, 3, 2, 2, 3, 5, 2, 3, 4, 4, 3, 5, 4, 1, 3, 2, 2, 3, 4, 2, 3, 3, 4, 6, 2, 3, 4, 5, 5, 4, 4, 3, 4, 5, 5, 1, 3, 2, 2, 3, 4, 2, 3, 3, 4, 2, 3, 3, 5, 7, 2, 4, 5, 5, 3, 4, 4, 6, 5, 6, 3, 4, 4, 5, 1, 3, 2, 2, 3, 4, 2, 3, 3, 4, 2, 3, 3, 5, 2, 3, 3, 8, 2, 4, 5, 6, 5

Offset: 1

Labos Elemer, Apr 17 2002

nonn

Cf. A000142, A000079, A068496, A070034, A070035.

Do[s=Mod[n!, 2^n]; If[IntegerQ[Log[2, s]], Print[n-Log[2, s]]], {n, 1, 1000}]

a(n)=A070034(n)-Log[2, A068496(A070034(n))].

A070035 Exponents of 2 when A068496(n) is also a power of 2.

Original entry on oeis.org

0, 1, 3, 4, 7, 15, 16, 18, 18, 23, 31, 32, 34, 35, 38, 39, 41, 49, 63, 64, 66, 70, 70, 74, 78, 85, 88, 97, 101, 104, 112, 127, 128, 130, 134, 134, 137, 142, 142, 143, 146, 153, 158, 173, 173, 180, 183, 198, 200, 205, 205, 228, 239, 255, 256, 258, 262, 262, 265, 270

Offset: 1

Labos Elemer, Apr 17 2002

nonn

Cf. A000142, A000079, A068496, A070034-A070036.

Do[s=Mod[n!, 2^n]; If[IntegerQ[Log[2, s]], Print[Log[2, s]]], {n, 1, 1000}]

a(n)=Log[2, A068496(A070034(n))].

cp's OEIS Frontend

A070036 a(n)=A070034(n)-A070035(n).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula