A097938 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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 *)

Select[#[[1]]^2-#[[2]]-1&/@Partition[Prime[Range[100]], 2, 1], PrimeQ] (* Harvey P. Dale, Jul 07 2024 *)

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