login
A162950
Primes whose square contains no repeated digit.
3
2, 3, 5, 7, 13, 17, 19, 23, 29, 31, 37, 43, 53, 59, 61, 71, 73, 79, 89, 113, 137, 179, 181, 191, 193, 199, 233, 269, 281, 311, 353, 367, 397, 463, 487, 509, 557, 571, 593, 647, 661, 677, 709, 733, 757, 797, 829, 839, 929, 1117, 1277, 1307, 1433, 1873, 1949
OFFSET
1,1
COMMENTS
Or: primes in A119509.
There are only 87 terms, the last being 21397.
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..87 (full sequence)
MATHEMATICA
t={}; Do[p=Prime[n]; If[Max[DigitCount[p^2]]<= 1, AppendTo[t, p]], {n, 300}]; t (* Jayanta Basu, May 10 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(21397) | #Set(d) eq #d where d is Intseq(p^2)]; // Bruno Berselli, Aug 02 2011
(PARI) is(n)=if(n<21398 && isprime(n), n=digits(n^2); #v==#vecsort(v, , 8), 0) \\ Charles R Greathouse IV, May 10 2013
CROSSREFS
Cf. A119509.
Sequence in context: A042990 A040169 A040165 * A259187 A040972 A040161
KEYWORD
fini,full,nonn,base
AUTHOR
Claudio Meller, Jul 18 2009
EXTENSIONS
Keyword:base added by R. J. Mathar, Jul 19 2009
STATUS
approved