A162950 Primes whose square contains no repeated digit.

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

Adjacent sequences: A162947 A162948 A162949 * A162951 A162952 A162953

Keyword

fini,full,nonn,base

Author

Claudio Meller, Jul 18 2009

Extensions

Keyword:base added by R. J. Mathar, Jul 19 2009

Status

approved