A103676 - OEIS

A103676

Numbers m such that in binary representation m! contains 5!.

5, 10, 12, 22, 23, 25, 27, 29, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 47, 48, 49, 50, 51, 52, 54, 55, 56, 57, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

Complement of A103677: A103673(a(n))=1, A103673(A103677(n))=0.

LINKS

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

Index entries for sequences related to factorial numbers

Index entries for sequences related to binary expansion of n

MATHEMATICA

Select[Range[100], MemberQ[Partition[IntegerDigits[#!, 2], 7, 1], {1, 1, 1, 1, 0, 0, 0}]&] (* Harvey P. Dale, Apr 09 2012 *)

PROG

(PARI) is(n)=n=n!; while(n>119, my(e=valuation(n, 2), e1=valuation((n>>=e)+1, 2)); n>>=e1; if(e>2 && e1>3, return(1))); 2 \\ Charles R Greathouse IV, Apr 07 2013

CROSSREFS

Cf. A102730, A036603, A007088, A000142, A103678, A103680.

Sequence in context: A087920 A313373 A313374 * A313375 A276606 A296445

Adjacent sequences: A103673 A103674 A103675 * A103677 A103678 A103679

KEYWORD

nonn,base

AUTHOR

Reinhard Zumkeller, Feb 12 2005

STATUS

approved