|
%I #15 Jan 12 2019 02:27:19
%S 2,29,229,2221,22229,922223,9222229,22222223,222222227,7222222229,
%T 22222222223,522222222229,9222222222229,22222222222229,
%U 222222222222227,9222222222222227,72222222222222221,222222222222222221
%N Largest n-digit prime with the maximum number of digits equal to 2.
%C Select first for most 2's, then take the largest.
%C In more detail: To get a(n), look at the list of all the n-digit primes. Suppose k is the maximum number of 2's of any number on the list. Throw out any prime on the list that does not contain k 2's. Then a(n) = maximal number that is left on the list. - _N. J. A. Sloane_, Mar 20 2018
%C For n <= 1000, a(n) has at most two non-2's. What is the first n for which it has more than two? - _Robert Israel_, Mar 20 2018
%H Robert Israel, <a href="/A178000/b178000.txt">Table of n, a(n) for n = 1..999</a>
%p # This program will return FAIL if a(n) has more than two digits <> 2.
%p f:= proc(n)
%p local k1,d2,k2,t;
%p for k1 in [9,7,3,1] do if isprime(2/9*(10^n-1)+k1-2) then return 2/9*(10^n-1)+k1-2 fi od;
%p for d2 from n to 2 by -1 do
%p for k2 in [9,8,7,6,5,4,3] do
%p for k1 in [9,7,3,1] do
%p t:= 2/9*(10^(n)-1)+(k2-2)*10^(d2-1) + k1-2;
%p if isprime(t) then return t fi;
%p od od od:
%p FAIL
%p end proc:
%p f(1):= 2:
%p seq(f(n),n=1..30); # _Robert Israel_, Mar 20 2018
%Y Cf. A037057, A099656, A177999.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, May 17 2010
|
