|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|