login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A065508 Primes p such that p^2 - p + 1 is prime. 10
2, 3, 7, 13, 67, 79, 139, 151, 163, 193, 337, 349, 379, 457, 541, 613, 643, 727, 769, 919, 991, 1021, 1093, 1117, 1201, 1231, 1381, 1423, 1549, 1567, 1597, 1621, 1693, 1747, 1789, 1801, 1933, 1987, 2011, 2017, 2113, 2137, 2143, 2239, 2281, 2557, 2647 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

The primes p^2 - p + 1 are in A074268.

LINKS

T. D. Noe, Table of n, a(n) for n=1..1000

MATHEMATICA

Select[Prime[Range[500]], PrimeQ[#^2-#+1]&] (* Harvey P. Dale, Oct 06 2015 *)

PROG

(PARI) { n=0; for (m=1, 10^9, p=prime(m); if (isprime(p^2 - p + 1), write("b065508.txt", n++, " ", p); if (n==1000, return)) ) } [From Harry J. Smith, Oct 20 2009]

(MAGMA) [n: n in [0..10000]| IsPrime(n) and IsPrime(n^2 - n + 1)] [From Vincenzo Librandi, Aug 07 2010]

CROSSREFS

Cf. A053182, A053184, A091567, A074268.

Sequence in context: A051452 A058017 A049536 * A078154 A192611 A254461

Adjacent sequences:  A065505 A065506 A065507 * A065509 A065510 A065511

KEYWORD

easy,nonn

AUTHOR

Vladeta Jovovic, Nov 26 2001

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 20 00:43 EST 2017. Contains 282355 sequences.