OFFSET
1,5
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
c = 0; Reap[Do[If[AllTrue[{n, 10^(1 + Floor@ Log10[n]) - n}, PrimeQ], c++]; Sow[c], {n, 86}]][[-1, -1]] (* Michael De Vlieger, Dec 18 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 18 2022
STATUS
approved