|
%I #12 Feb 15 2017 00:37:22
%S 2,23,29,41,43,47,61,67,83,89,101,103,107,109,127,149,163,167,181,211,
%T 233,239,251,257,271,277,293,307,347,349,367,383,389,419,431,433,439,
%U 457,479,491,499,503,509,521,523,541,547,563,569,587,613,617,619,631
%N Primes with one even digit.
%H Charles R Greathouse IV, <a href="/A154758/b154758.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[150]], Length[Select[IntegerDigits[#], EvenQ]] == 1&] (* _Harvey P. Dale_, Jan 04 2011 *)
%o (PARI) is(n)=my(d=digits(n)); sum(i=1,#d,d[i]%2==0)==1 && isprime(n) \\ _Charles R Greathouse IV_, Feb 15 2017
%K nonn,base
%O 1,1
%A _Juri-Stepan Gerasimov_, Jan 15 2009
%E Corrected (101 to 109 inserted, 307 inserted, 401 and 409 removed etc.) by _R. J. Mathar_, May 05 2010
|
