|
|
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
|
Cf. A119509.
Sequence in context: A042990 A040169 A040165 * A259187 A040972 A040161
Adjacent sequences: A162947 A162948 A162949 * A162951 A162952 A162953
|
|
KEYWORD
|
fini,full,nonn,base,changed
|
|
AUTHOR
|
Claudio Meller, Jul 18 2009
|
|
EXTENSIONS
|
Keyword:base added by R. J. Mathar, Jul 19 2009
|
|
STATUS
|
approved
|
|
|
|