OFFSET
1,1
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..200
MATHEMATICA
Select[Flatten[Table[FromDigits/@Permutations[PadRight[{8}, n, 9]], {n, 15}]], PrimeQ] (* Harvey P. Dale, Mar 29 2020 *)
PROG
(PARI) a002283(n) = 10^n-1
a011557(n) = 10^n
num(n, k) = a002283(n)-a011557(k)
terms(n) = i=0; x=1; while(x > 0, y=x-1; while(y >= 0, if(ispseudoprime(num(x, y)), print1(num(x, y), ", "); i++); if(i==n, break({2})); y--); x++)
terms(30) \\ print initial thirty terms
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Felix Fröhlich, Oct 18 2015
STATUS
approved