|
|
A263431
|
|
Near-repdigit primes with only digits 9 and a single 8 in decimal expansion.
|
|
2
|
|
|
89, 8999, 98999, 99989, 989999, 9899999, 89999999, 99899999, 99998999, 99999989, 998999999, 98999999999, 99989999999, 999998999999, 999999999899, 999999999989, 99899999999999, 99999899999999, 99999999899999, 999999899999999, 999999999989999, 999999999999989
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|