A158716 Largest prime with n distinct nonprime digits.

89, 941, 9601, 98641, 980641

Offset: 2

Author

Lekraj Beedassy, Mar 24 2009

Keywords

• fini
• full
• nonn
• base
• changed

Crossrefs

Cf. A007810.

Programs

Mathematica

a[n_]:=Module[{k=NextPrime[10^n-1,-1]}, While[!SubsetQ[{0,1,4,6,8,9}, IntegerDigits[k]] || CountDistinct[IntegerDigits[k]]Stefano Spezia, Aug 29 2025 *)