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

Links

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

Formula

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

Mathematica

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

Crossrefs

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

Sequence in context: A073728 A132753 A132407 * A219277 A024368 A329666

Adjacent sequences: A070032 A070033 A070034 * A070036 A070037 A070038

Keyword

nonn

Author

Labos Elemer, Apr 17 2002

Status

approved