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

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

Author

Labos Elemer, Apr 17 2002

Keywords

• nonn

Crossrefs

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

Programs

Mathematica

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

Formula

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