A097938 Primes of the form prime(n)^2 - prime(n+1) - 1.

3, 17, 37, 107, 151, 269, 337, 499, 809, 1327, 1637, 1801, 2749, 4967, 7823, 10501, 12641, 22643, 31859, 32569, 38609, 54049, 57829, 62743, 68899, 72089, 93937, 97651, 121447, 124249, 143257, 146299, 157207, 166861, 176809, 185327, 187049

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

a(4)=107 because 11^2 - 13 -1=107.

Mathematica

Select[Table[(Prime[n]^2-Prime[n+1])-1, {n, 700}], PrimeQ[#]&] (* Vincenzo Librandi, Jul 17 2012 *)

Prog

(PARI) m=85; for(n=1, m, if(isprime(k=prime(n)^2-prime(n+1)-1), print1(k, ", "))) - Klaus Brockhaus, Sep 06 2004

Crossrefs

Sequence in context: A146813 A106895 A106896 * A354475 A073162 A146186

Adjacent sequences: A097935 A097936 A097937 * A097939 A097940 A097941

Keyword

nonn,easy

Author

Giovanni Teofilatto, Sep 05 2004

Extensions

More terms from Klaus Brockhaus, Sep 06 2004

Status

approved