A090955 Numbers in increasing order such that successive sum and difference both are primes: a(n) + a(n-1) and a(n) - a(n-1) both are primes.

1, 4, 7, 10, 13, 16, 21, 26, 33, 38, 41, 48, 53, 56, 75, 82, 85, 88, 91, 102, 109, 114, 119, 122, 129, 134, 137, 140, 143, 150, 157, 160, 171, 176, 183, 190, 193, 196, 201, 208, 211, 222, 227, 230, 233, 246, 253, 256, 267, 274, 297, 302, 305, 308, 311, 330, 343

Offset

1,2

Links

Table of n, a(n) for n=1..57.

Mathematica

a = 1; Print[a]; Do[k = a + 1; While[ !(PrimeQ[k - a] && PrimeQ[k + a]), k++ ]; a = k; Print[a], {n, 1, 100}] (* Ryan Propper, Aug 27 2005 *)

Crossrefs

Cf. A090956.

Sequence in context: A310682 A090852 A182112 * A310683 A134027 A143455

Adjacent sequences: A090952 A090953 A090954 * A090956 A090957 A090958

Keyword

nonn

Author

Amarnath Murthy, Dec 31 2003

Extensions

More terms from Ryan Propper, Aug 27 2005

Status

approved