%I #6 Mar 06 2014 16:40:06
%S 211,2111,8117,41113,411113,8111111117,2111111111111,41111111111113,
%T 811111111111111117,2111111111111111111,211111111111111111111111,
%U 41111111111111111111111111111113,41111111111111111111111111111111111111111111111111111113
%N Primes such that the outer 2 digits are n and n-1 and all inner digits are 1, where 0 < n < 9.
%t Sort[Select[Flatten[Table[FromDigits[Join[{n},PadRight[{},i,1],{n-1}]],{n,2,8},{i,60}]],PrimeQ]] (* _Harvey P. Dale_, Mar 06 2014 *)
%o (PARI) n10np1(n,d) = { local(x,y,k); for(x=1,n, for(k=1,8, y=10^(x+1)*k+floor(10^x*d/9)*10+k-1; if(isprime(y),print1(y",")) ) ) }
%K easy,nonn,base
%O 1,1
%A _Cino Hilliard_, Jul 11 2005
%E More terms from _Harvey P. Dale_, Mar 06 2014
|