login
A074928
a(n)>0 such that p(n)*p(n+1)+a(n) is a minimal prime.
7
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
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
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 02 2002
STATUS
approved