|
%I #9 Sep 13 2019 08:04:21
%S 7,11,13,19,31,37,41,47,59,61,67,73,79,97,103,107,109,127,131,137,151,
%T 157,167,173,179,181,191,193,199,211,223,227,229,233,239,241,251,271,
%U 283,307,313,331,367,379,397,409,419,421,431,433,439,443,457,463,487
%N Primes p for which the factorization of p! over distinct terms of A050376 does not contain 2.
%C Equivalent definition: primes p for which A007814(p!) is even. Apparently, the sequence is A027697 without the 2 (see A014499). [_R. J. Mathar_, Oct 26 2010]
%H Amiram Eldar, <a href="/A176620/b176620.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[500], PrimeQ[#] && EvenQ @ IntegerExponent[#!, 2] &] (* _Amiram Eldar_, Sep 13 2019 *)
%Y Cf. A050376, A000040, A000142.
%K nonn
%O 1,1
%A _Vladimir Shevelev_, Apr 22 2010
%E Corrected (37 added, 41 added, 43 removed...) and extended by _R. J. Mathar_, Oct 26 2010
|
