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

Author

Claudio Meller, Jul 18 2009

Keywords

• fini
• full
• nonn
• base

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)

Crossrefs

Cf. A119509.

Programs

Magma

[p: p in PrimesUpTo(21397) | #Set(d) eq #d where d is Intseq(p^2)]; // Bruno Berselli, Aug 02 2011

Mathematica

t={}; Do[p=Prime[n]; If[Max[DigitCount[p^2]]<= 1,AppendTo[t,p]],{n,300}]; t   (* Jayanta Basu, May 10 2013 *)

PARI

is(n)=if(n<21398 && isprime(n), n=digits(n^2); #v==#vecsort(v,,8), 0) \\ Charles R Greathouse IV, May 10 2013

Extensions

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