A128660 Numbers n such that p(n+1)#-p(n)#-p(n-1)#+1 is prime where p(i)#=product of first i primes=A002110(i).
2, 6, 14, 15, 23, 31, 97, 144, 983, 2587, 3163, 6689
Offset: 1
Keywords
Programs
-
Mathematica
Flatten[Position[#[[3]]-#[[2]]-#[[1]]+1&/@Partition[FoldList[Times,1,Prime[ Range[ 6700]]] ,3,1],?PrimeQ]] (* _Harvey P. Dale, Jul 25 2013 *)