

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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

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



