A158716 Largest prime with n distinct nonprime digits.

89, 941, 9601, 98641, 980641

Offset

2,1

Links

Table of n, a(n) for n=2..6.

Mathematica

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

Crossrefs

Cf. A007810.

Sequence in context: A097155 A197348 A289852 * A093289 A103545 A118368

Adjacent sequences: A158713 A158714 A158715 * A158717 A158718 A158719

Keyword

fini,full,nonn,base

Author

Lekraj Beedassy, Mar 24 2009

Status

approved