|
|
A131578
|
|
Numbers n such that p(n)^2-p(n)-1 and p(n)^2-p(n)+1 are twin primes with p(i)=i-th prime.
|
|
1
|
|
|
2, 4, 19, 34, 75, 88, 197, 221, 244, 247, 272, 278, 322, 375, 383, 399, 560, 573, 604, 618, 690, 741, 834, 1135, 1193, 1212, 1228, 1272, 1382, 1401, 1490, 1524, 1585, 1589, 1779, 1989
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[2000], AllTrue[Prime[#]^2-Prime[#]+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 12 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|