|
%I #23 Mar 19 2023 08:21:47
%S 2,3,5,7,13,17,19,23,29,31,37,43,53,59,61,71,73,79,89,113,137,179,181,
%T 191,193,199,233,269,281,311,353,367,397,463,487,509,557,571,593,647,
%U 661,677,709,733,757,797,829,839,929,1117,1277,1307,1433,1873,1949
%N Primes whose square contains no repeated digit.
%C Or: primes in A119509.
%C There are only 87 terms, the last being 21397.
%H Nathaniel Johnston, <a href="/A162950/b162950.txt">Table of n, a(n) for n = 1..87</a> (full sequence)
%t t={}; Do[p=Prime[n]; If[Max[DigitCount[p^2]]<= 1,AppendTo[t,p]],{n,300}]; t (* _Jayanta Basu_, May 10 2013 *)
%o (Magma) [p: p in PrimesUpTo(21397) | #Set(d) eq #d where d is Intseq(p^2)]; // _Bruno Berselli_, Aug 02 2011
%o (PARI) is(n)=if(n<21398 && isprime(n), n=digits(n^2); #v==#vecsort(v,,8), 0) \\ _Charles R Greathouse IV_, May 10 2013
%Y Cf. A119509.
%K fini,full,nonn,base
%O 1,1
%A _Claudio Meller_, Jul 18 2009
%E Keyword:base added by _R. J. Mathar_, Jul 19 2009
|
