login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A103678 Numbers m such that in binary representation m! contains 6!. 6
6, 20, 23, 30, 31, 32, 37, 43, 53, 55, 58, 65, 71, 74, 81, 86, 91, 94, 95, 99, 102, 106, 108, 111, 115, 116, 117, 118, 122, 123, 124, 127, 128, 129, 133, 134, 135, 139, 141, 143, 144, 145, 149, 153, 155, 157, 158, 159, 160, 162, 163, 166, 167, 168, 169, 170, 171 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Complement of A103679: A103674(a(n))=1, A103674(A103679(n))=0.

All the numbers 803 <= n <= 500000 are in the sequence. - Giovanni Resta, Apr 07 2013

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..10000

Index entries for sequences related to factorial numbers

Index entries for sequences related to binary expansion of n

MATHEMATICA

With[{c=IntegerDigits[6!, 2]}, Select[Range[180], SequenceCount[ IntegerDigits[ #!, 2], c]>0&]] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, Jul 26 2016 *)

PROG

(PARI) is(n)=n=n!; while(n>719, my(e=valuation(n, 2), e1=valuation((n>>=e)+1, 2)); n>>=e1; if(e>3 && e1==1 && bitand(n, 31)==22, return(1))); 0 \\ _Charles R  Greathouse IV_, Apr 07 2013

CROSSREFS

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

Sequence in context: A237043 A243905 A062017 * A020889 A334817 A084682

Adjacent sequences:  A103675 A103676 A103677 * A103679 A103680 A103681

KEYWORD

nonn,base

AUTHOR

Reinhard Zumkeller, Feb 12 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 28 17:01 EDT 2021. Contains 346335 sequences. (Running on oeis4.)