OFFSET
1,1
COMMENTS
There are << x^k primes missing from this sequence up to x, where k = log 6/log 10 = 0.7781.... - Charles R Greathouse IV, Nov 29 2022
LINKS
Chris Caldwell, The First 1,000 Primes
FORMULA
a(n) ~ n log n. - Charles R Greathouse IV, Nov 29 2022
EXAMPLE
953 is a prime in which a digit is square of another digit.
MATHEMATICA
Select[Prime[Range[200]], AnyTrue[Sort/@Subsets[IntegerDigits[#], {2}], #[[1]]^2 == #[[2]]&]&] (* Harvey P. Dale, Nov 29 2022 *)
PROG
(Python)
from sympy import isprime
def ok(n): s = str(n); return (s.count("0") > 1 or s.count("1") > 1 or ("2" in s and "4" in s) or ("3" in s and "9" in s)) and isprime(n)
print([k for k in range(1172) if ok(k)]) # Michael S. Branicky, Nov 29 2022
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Mar 11 2009
EXTENSIONS
Corrected and extended by Harvey P. Dale, Nov 29 2022
STATUS
approved