login
A097938
Primes of the form prime(n)^2 - prime(n+1) - 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
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
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Sep 05 2004
EXTENSIONS
More terms from Klaus Brockhaus, Sep 06 2004
STATUS
approved