%I #14 Oct 05 2022 13:11:18
%S 463,4663,46663,4666663,46666663,466666663,4666666666663,
%T 466666666666666666666663,
%U 466666666666666666666666666666666666666666666666666666666663,4666666666666666666666666666666666666666666666666666666666666666666666666663
%N Primes such that the outer 2 digits are n and n-1 and all inner digits are 6, where 0 < n < 9.
%C The next term (a(11)) has 145 digits. - _Harvey P. Dale_, Oct 05 2022
%C n has to be 2, 4, or 8, but it appears that n may always be 4. This is true up to a(14) which has 761 digits. - _Harvey P. Dale_, Oct 05 2022
%t Select[Flatten[Table[10 FromDigits[PadRight[{d},n,6]]+d-1,{n,2,80},{d,{2,4,8}}]],PrimeQ] (* _Harvey P. Dale_, Oct 05 2022 *)
%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 One more term from _Harvey P. Dale_, Oct 05 2022
|