Search: id:A135930 Results 1-1 of 1 results found. %I A135930 %S A135930 5,7,11,13,29,31,53,59,61,127,131,137,139,173,179,181,191,193,293,307, %T A135930 311,313,317,367,373,379,383,389,397,541,547,557,563,569,571,853,857, %U A135930 859,863,877,881,883,887,967,971,977,983,991,997,1009,1013,1019,1021 %N A135930 Primes whose integer square root is also prime. %C A135930 The integer square root of an integer x >= 0 can be defined as floor(sqrt(x)) and the remainder of this as x - (floor(sqrt(x)))^2. %H A135930 Wikipedia, Integer square root %t A135930 f[n_]:=PrimeQ[IntegerPart[Sqrt[n]]];lst={};Do[p=Prime[n];If[f[p],AppendTo[lst, p]],{n,6!}];lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 12 2009] %o A135930 (PARI) { forprime(p=2, 2000, isr = sqrtint(p); if (isprime(isr), print1(p, ",") ) ) } %Y A135930 Sequence in context: A022885 A135774 A155053 this_sequence A163429 A136055 A073340 %Y A135930 Adjacent sequences: A135927 A135928 A135929 this_sequence A135931 A135932 A135933 %K A135930 nonn,new %O A135930 1,1 %A A135930 Harry J. Smith (hjsmithh(AT)sbcglobal.net), Dec 07 2007 Search completed in 0.001 seconds