|
%I #6 Aug 31 2015 16:43:59
%S 3,53,547,5531,55547,555523,5555527,55555553,555555541,5555555519,
%T 55555555543,555555555551,5555555555551,55555555555541,
%U 555555555555529,5555555555555539,55555555555555519,555555555555555487
%N a[n] is the largest prime before A002279[n] repdigits.
%e n=2: 53 is before 55.
%t <<NumberTheory`NumberTheoryFunctions` Table[Table[PreviousPrime[5*(10^n-1)/9], {n, 1, 35}]
%t NextPrime[#,-1]&/@Table[FromDigits[PadRight[{},n,5]],{n,20}] (* _Harvey P. Dale_, Aug 31 2015 *)
%Y Cf. A003618, A003617, A096497, A096498, A068104, A002275-A002283, A099656-A099668.
%K base,nonn
%O 1,1
%A _Labos Elemer_, Nov 17 2004
|
