|
%I #11 Jun 13 2020 17:10:34
%S 233,839,2333,6337,23333,63337,83339,633337,6333337,8333333339,
%T 23333333333,63333333337,83333333339,63333333333337,8333333333333339,
%U 23333333333333333,23333333333333333333333
%N Primes such that the outer 2 digits are n and n+1 and all inner digits are 3, where 0 < n < 9.
%C The first digit of each term must be 2, 6, or 8. - _Harvey P. Dale_, Jun 13 2020
%H Harvey P. Dale, <a href="/A108820/b108820.txt">Table of n, a(n) for n = 1..40</a>
%F a(x) = 10^(x+1)*n+floor(10^x*3/9)*10+n+1. Output if a(x) is prime.
%t Select[Sort[Flatten[Table[10FromDigits[PadRight[{i},n,3]]+i+1,{i,{2,6,8}},{n,2,25}]]],PrimeQ] (* _Harvey P. Dale_, Jun 13 2020 *)
%o (PARI) n10np1(n) = { local(x,y,k); for(x=1,n, for(k=1,8, y=10^(x+1)*k+floor(10^x*3/9)*10+k+1; if(isprime(y),print1(y",")) ) ) }
%K easy,nonn,base
%O 1,1
%A _Cino Hilliard_, Jul 11 2005
%E Corrected by _T. D. Noe_, Nov 15 2006
|
