|
%I #13 Apr 07 2013 10:28:18
%S 0,1,2,3,4,5,6,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,
%T 27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,
%U 50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73
%N Numbers m such that in binary representation m! doesn't contain 7!.
%C Complement of A103680: A103675(a(n))=0, A103675(A103680(n))=1.
%C Last term is probably 5153, since all numbers from 5154 to 5*10^5 do not belong to the sequence. - _Giovanni Resta_, Apr 07 2013
%H <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%o (PARI) is(n)=n=n!; while(n>5039, my(e=valuation(n, 2), e1=valuation((n>>=e)+1, 2)); n>>=e1; if(e>3 && e1==2 && bitand(n, 127)==78, return(0))); 1 \\ _Charles R Greathouse IV_, Apr 07 2013
%Y Cf. A102730, A036603, A007088, A000142, A103677, A103679.
%K base,nonn
%O 1,3
%A _Reinhard Zumkeller_, Feb 12 2005
|
