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.

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

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Sequence in context: A201379 A056727 A154140 * A018273 A047092 A229485

Adjacent sequences: A131575 A131576 A131577 * A131579 A131580 A131581

Keyword

nonn

Author

Pierre CAMI, Aug 29 2007

Status

approved