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
KEYWORD
fini,full,nonn,base
AUTHOR
Claudio Meller, Jul 18 2009
EXTENSIONS
Keyword:base added by R. J. Mathar, Jul 19 2009
STATUS
approved