|
| |
|
|
A135930
|
|
Primes whose integer square root is also prime.
|
|
0
| |
|
|
5, 7, 11, 13, 29, 31, 53, 59, 61, 127, 131, 137, 139, 173, 179, 181, 191, 193, 293, 307, 311, 313, 317, 367, 373, 379, 383, 389, 397, 541, 547, 557, 563, 569, 571, 853, 857, 859, 863, 877, 881, 883, 887, 967, 971, 977, 983, 991, 997, 1009, 1013, 1019, 1021
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 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.
|
|
|
LINKS
| Wikipedia, Integer square root
|
|
|
MATHEMATICA
| 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]
|
|
|
PROG
| (PARI) { forprime(p=2, 2000, isr = sqrtint(p); if (isprime(isr), print1(p, ", ") ) ) }
|
|
|
CROSSREFS
| Sequence in context: A200143 A135774 A180946 * A163429 A136055 A181494
Adjacent sequences: A135927 A135928 A135929 * A135931 A135932 A135933
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Harry J. Smith (hjsmithh(AT)sbcglobal.net), Dec 07 2007
|
| |
|
|
