A074928 a(n)>0 such that p(n)*p(n+1)+a(n) is a minimal prime.

1, 2, 2, 2, 6, 2, 8, 2, 6, 8, 4, 6, 14, 6, 12, 10, 8, 4, 2, 6, 12, 6, 6, 8, 6, 24, 6, 14, 6, 18, 12, 10, 8, 6, 2, 12, 10, 18, 10, 4, 2, 12, 8, 18, 6, 10, 4, 6, 8, 2, 4, 2, 2, 6, 10, 6, 2, 12, 2, 8, 20, 8, 2, 24, 2, 6, 30, 14, 20, 6, 6, 6, 6, 4, 20, 4, 6, 2, 2, 12, 2, 6, 6, 6, 2, 22, 8, 32, 6, 12

Offset

1,2

Links

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

Example

a(1) = 1 because p(1)*p(2) + 1 = 2*3 + 1 = 7 -> prime

Mathematica

NextPrime[#]-#&/@Times@@@Partition[Prime[Range[100]], 2, 1] (* Harvey P. Dale, May 28 2013 *)

Crossrefs

Sequence in context: A023957 A224964 A278165 * A285713 A278230 A344859

Adjacent sequences: A074925 A074926 A074927 * A074929 A074930 A074931

Keyword

nonn

Author

Zak Seidov, Oct 02 2002

Status

approved